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HEATH COMPANY PHONE DIRECTORY 


The following telephone numbers are direct lines to the departments listed: 


Kit orders and delivery information.(616) 982-3411 

Credit .(616)982-3561 

Replacement Parts.(616) 982-3571 

Technical Assistance Phone Numbers 
6:00 AM. to 12 P.M. and 1:00 P.M. to 4:30 P.M., EST, Weekdays Only 

R / C, Audio, and Electronic Organs.(616) 982-3310 

Amateur Radio .(616) 982-3296 

Test Equipment, Weather Instruments and 

Home Clocks.(616) 982-3315 

Television.(616) 982-3307 

Aircraft, Marine, Security, Scanners, Automotive, 

Appliances and General Products.(616) 982-3496 

Computer Hardware.(616) 982-3309 

Computer Software .(616) 962-3860 

Heath Craft Wood Works .(616) 982-3423 


YOUR HEATHKIT 90-DAY LIMITED WARRANTY 


Consumer Protection Plan for Heathkit Consumer Products 

Welcome to ttie Heath family. We believe you will enjoy assembling your kit and will be pieased with its 
performance. Please read this Consumer Protection Plan carefully. It is a ‘LIMITED WARRANTY” as 
defined in the U.S. Consumer Product Warranty and Federal Trade Commission Improvement Act, This 
warranty gives you specific legal rights, and you may also have other rights which vary from state to state. 

Heath’s Responsibility 

PARTS — Replacements for factory detective parts will be supplied free for 90 days from date of purchase. Replacement parts are 
warranted for the remaining portion of the original warranty period. You can obtain warranty parts direct from Heath Company by writing 
or telephoning us at (616) ^2-3571. And we will pay shipping charges to get those parts to you .. . anyywhere in the world. 

SERVICE LABOR — For a period of 90 days from the date of purchase, any malfunction caused by defective parts or error in design will 
be corrected at no charge to you. You must deliver the unit at your expense to the Heath factory, any Heathkit Electronic Center (units of 
Veritechnology Electronics Coi^oration), or any of our authorized overseas distributors. 

TECHNICAL CONSULTATION — You will receive free consultation on any problem you might encounter in the assembly or use of your 
Heathkit product. Just drop us a line or give us a call. Sorry, we cannot accept collect calls. 

NOT COVERED — The correction of assembly errors, adjustments, calibration, and damage due to misuse, abuse, or negligence are 
not covered by the warranty. Use of corrosive solder and/or the unauthorized modification of the product or of any furnished component 
will void this warranty in its entirety. This warranty does not include reimbursement for inconvenience, loss of use, customer assembly, 
set-up time, or unauthorized sen/ice. 

This warranty covers only Heath products and is not extended to other equipment or components that a customer uses in conjunction vwth 
our products. 

SUCH REPAIR AND REPLACEMENT SHALL BE THE SOLE REMEDY OF THE CUSTOMER AND THERE SHALL BE NO LIABILITY 
ON THE PART OF HEATH FOR ANY SPECIAL. INDIRECT, INCIDENTAL OR CONSEQUENTIAL DAMAGES, INCLUDING BUT NOT 
LIMITED TO ANY LOSS OF BUSINESS OR PROFITS. WHETHER OR NOT FORSEEABLE. 

Some slates do not allow the exclusion or limitation of incidental or consequential damages, so the above limitation or exclusion may not 
apply to you. 


Owner’s Responsibility 

EFFECTIVE WARRANTY DATE — Warranty begins on the date of first consumer purchase. You must supply a copy of your proof of 
purchase when you request warranty service or parts. 

ASSEMBLY — Before seeking warranty service, you should complete the assembly by carefully following the manual instructions. 
Heathkit service agencies cannot complete assembly and adjustments that are customer's responsibility. 

ACCESSORY EQUIPMENT — Performance malfunctions involving other non-Heath accessory equipment, (antennas, audio compo¬ 
nents, computer peripherals and software, etc.) are not covered by this warranty and are the owner’s responsibility. 

SHIPPING UNITS — Follow the packing instructions published in the assembly manuals. Damage due to inad equate packing cannot be 
repaired under warranty. 

If you are not satisfied with our service (warranty or otherwise) or our products, write directly to our Director of 
Customer Service, Heath Company. Benton Harbor Ml 49022. He will make certain your problems receive 
immediate, personal attention. 
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INTRODUCTION 


This Manual describes the operation of your ET-3400/ETA-3400 microcomputer 
system. The major operational features of the system are explained in the sec¬ 
tions titled “Heath/Wintek FANTOM II Monitor” and “Heath/Pittman Tiny 
BASIC.” The keyboard commands, “Monitor Listing,” sample programs, and 
memory maps are also included, as well as several article reprints from 
“Kilobaud” magazine that will help you more fully enjoy your ET-3400/ETA- 
3400 Microcomputer System. 

The Microcomputer system easily interfaces to a video terminal and a cassette 
recorder. The increase in memory size and software support gives you a more 
flexible, general-purpose computer system, while the trainer itself still remains 
functional and useful. The following list summarizes the main features. 

• The ETA-3400 uses an independent power supply. 

• The system supports 1024 flK) bytes of read/write random-access 
memory. This is expandable to 4K. 

• A 2K ROM MONITOR. 

• A 2K ROM Tiny BASIC interpreter. 

• Expanded I/O support: 

— Audio cassette mass storage; 


— Video terminal. 



HEATH/WINTEK FANTOM II 
MONITOR 


This Monitor consists of a group of individual computer programs linked to¬ 
gether that operate as a single supervisory systems controller. These programs 
are permanently located in a 2K ROM (2048 bytes of Read-Only-Memory] on the 
ETA-3400 circuit board. FANTOM II schedules and verifies the operation of 
peripheral computer components. You use the Monitor to build, test, execute, 
store, and retrieve computer programs written in machine code. 

The Monitor provides you with a means of communicating between the microp¬ 
rocessor, the terminal, and a cassette. You select a Monitor command by pressing 
a key on the console terminal associated with the particular command. This 
information is processed by the Monitor, which then directs the computer to the 
routine that performs the operation. Control is returned to the Monitor after the 
operation is completed. 

This section of the Manual describes the function, operation and features of 
FANTOM II. Some of the major features are; 

• Display/Alter register contents. 

• Display/Alter memory contents. 

• Display Program Instructions 

• Program Execution Control. 

• Program Storage and Retrieval. 

NOTE: A knowledge of the Motorola 6800 microprocessor and common pro¬ 
gramming techniques is essential for understanding the FANTOM II Monitor. 
The HEATH EE-3401 microprocessor course provides this knowledge. 



SYMBOLS 

This Manual uses symbols to describe some terms. Frequently used symbols and 
their meaning are listed below. In examples of keyboard dialogue, monitor and 
program output are underlined. 

MICROPROCESSOR 


A Accumulator or register A. The 8-bit arithmetical or logical sec¬ 

tion of the computer that processes data. 

B Accumulator or register B. An 8-bit register similar to register A. 

C The condition code register. A 6-bit register that indicates the 

nature or result of an instruction. 

P The program counter. A 16-bit register that sequentially counts 

each program instruction. 

S The stack pointer. A 16-bit register that records the last address of 

an entry onto the stack. 

X The index register. This 16-bit register permits automatic pro¬ 

gram modification of an instruction address without destroying 
the address contained in memory. The index register is frequently 
used as a memory pointer. 

TERMINAL 


ESC The ESCape key. Press this key to return control to the Monitor. 

BRK The BReaK key. Press this key once to return control to the 

Monitor. Press it twice to return control to the ET-3400 trainer. 

CTRL The control key. When it is used in conjunction with another key, 
it creates a special function. For instance, if you hold CTRL and 
press P, the contents of the program counter will be displayed. 

'0 The carriage return, or return key, on your video terminal. 


PROMPT CHARACTERS 


M0N> The FANTOMII Monitor prompt character. It indicates that your 
system is functioning and ready to accept a Command. 


Tiny BASIC prompt character. 



USING THE MONITOR 


POWER UP and MASTER RESET 

When power is first applied to the ET-3400/ETA-3400 Microcomputer System, 
you should press the RESET key on the ET-3400 keypad. The display will then 
show CPU UP, and the next keypad entry will be interpreted as a command. Use 
the RESET key to initialize the system or escape from a malfunctioning program. 

When you wish to use FANTOM II, after pressing the RESET key, press the DO 
(D) key on your trainer and enter the hexadecimal starting address 1400. This 
command causes FANTOM II to print the prompt characters (M0N> )* on the 
video terminal. This tells you that the system Monitor is functioning and is 
waiting for a command. For instance, the following sequence will initialize the 
Monitor, examine the contents of several memory locations, and return control 
to the ET-3400 microcomputer. 

• Apply power to the microcomputer system. 

• Press RESET on the ET-3400 keypad. 

• Press DO on the keypad and enter hexadecimal address 1400. 

• Look for the prompt character ( M0N> ) on your terminal. 

• Type M ( Memory ) on the terminal keyboard and enter the address 
1400 followed by a carriage return. 

• The video display responds by printing the address and the memory 
contents. (1400 OF) 

• Enter several carriage returns and observe the display. You will notice 
that, for each carriage return, a sequential memory location and its 
corresponding data is shown. 

• Press the ESCape or BReaK key on your terminal. The prompt character 
reappears and control is returned to the monitor. 

• Press the BReaK key a second time and control is returned to the 
Trainer. 


Throughout this Manual, the computer output has been underlined to set it off from the user response. 


DISPLAY/ALTER REGISTER CONTENTS 


DISPLAY REGISTERS 

The ET-3400/ETA-3400 Microcomputer System manipulates all data through its 
registers. You can examine the contents of a single register or all the registers by 
selecting the appropriate command. When you use the correct format, display¬ 
ing the contents of a selected register is simple. For instance, pressing R after the 
prompt character displays the contents of all microprocessor registers. In this 
and subsequent examples, unless specified, the data shown is only given as an 
example. You should expect to get different displays. 

MON> R C=DB B=DB A=0B X=0BaB P=14D1 S=D0D2 CE 1000 

M0N> 


In this example, you can see that the condition code register was set to hexadec¬ 
imal integer M. The A and^registers equals, while the index register was set 
to DBDB. The program counter (P] displays the address of the next instruction to 
be executed and S is the current address of the stack pointer. Finally, the next 
instruction that would be executed if the program were run is CE IPOD . This 
information, when displayed on the video screen, is useful for correcting pro¬ 
gram errors. 

The two most significant bits of the 8-bit RAM location that hold the condition 
code are neglected by the system hardware. In the example, DB (1101 1011] 
shows the status of the condition codes. By pressing CTRL/C and entering a 
different value, you can change the status of register C. 

DISPLAY/ALTER REGISTERS 

The Monitor also lets you display or change the contents of individual registers, 
except the stack pointer. To display the contents of a register (other than the stack 
pointer], press the CTRL key on the terminal, and then select and press the key 
that corresponds to the register name. When you wish to change the contents of a 
register, enter the new value after displaying the original contents. The follow¬ 
ing examples show you how to display and alter the contents of each micro¬ 
processor register. 

For instance, to display the program counter, simultaneously press the CTRL 
and the P keys. A return causes the Monitor to complete the command and 
display the prompts. 


M0N> CTRL/P P=14D1 
M0N> 


In the next example, the contents of register A are first displayed and then 
altered. Press CTRL/A to display the current contents of register A. Enter a new 
hexadecimal value, for instance IB, and a carriage return. The return signals the 
Monitor to execute the command, and the displayed prompt character indicates 
a successful completion of the command. You can then press CTRL/A and verify 
that the register contents were changed. 

MON> CTRL/A A=NN IB g) 

M0N> CTRL/A A=1B g 

M0N> 

The Monitor uses the same format to display or alter the contents of each 
microprocessor register. In all subsequent examples, NN or NNNN represents a 
random hexadecimal value. The list summarizes the usage of register commands 
available to you through the Monitor. 

MON> CTRL/A A^IB g (Display A) 

MON> CTRL/B B=NN 12 g (Alter B to read 12) 

MOK> CTRL/C C=NN DO g (Alter C to read □□) 

MON> CTRL/P P=NNNN 1234 g ( P = 1234 ) 

MON> CTRL/X X=NNNN 5678 g ( X = 5678 ) 

MON> R C=00 B=12 A^IB X=5678 P=1234 S=NNNN * 

MON> 


*You can neither alter the stack pointer, nor predict its value, with the FANTOM 11 Monitor. Also, machine 
instructions or data will be output after the stack pointer address is printed. 
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DISPLAY/ALTER MEMORY CONTENTS 

DISPLAY MEMORY 

The FANTOM II Monitor can access individual or sequential memory locations. 
This feature alloivs you to rapidly examine and correct program instructions or 
data. To display an area of memory on the video terminal, type D (display) and 
specify the range of the memory locations. The following example shows you 
how to display the contents of 16 sequential memory cells from address 1400 
thru 140F. Because the area shown in the example is part of the Monitor, you 
should obtain the same results. 

MQN> D 1400,140F §) 

1400 OF CE 10 □□ 6F 01 6F Pg 86 □! A? □□ 86 7F A? 02 
M0N> 


The Monitor responds to the carriage return by typing the starting address and 
listing the memory contents. The address of each line displayed is always the 
first four-digit number, followed by the contents of the next sixteen sequential 
memory locations. 

DISPLAY/ALTER MEMORY 

Use the M (Memory) command when you wish to examine or alter the contents of 
an individual or a sequence of memory locations. For instance, as shown below, 
type an M after the prompt character and the address 1400. FANTOM II responds 
by printing the address and the memory contents (OF) after you press the carriage 
return. To proceed to the next location, press the carriage return again. FANTOM 
II responds by printing an address and its contents. To exit the display mode and 
return to the Monitor, press ESC or BRK. 

The following example shows you how to examine the contents of ROM memory 
locations. You can compare the data with the *‘Heath/Wintek Monitor Listing,” 
(“Appendix C,” Page 37) and/or examine additional locations. This feature 
provides a quick method of searching for useful Monitor or Tiny BASIC sub¬ 
routines. 


M0N> 


1400 

1400 

OF 


1401 

CE ^ 

1402 

10 


1403 

□ 0 


1404 

6F 

ESC 


MQN> 


10 


You may use the same procedure to modify memory contents that you use to 
change register contents. In the next example, use the M command to alter the 
contents of several hexadecimal locations between 100 and 105* The procedure 
always gives you an option of changing or not changing the program data. You 
will not alter memory contents if you press a carriage return after the data is 
displayed. 


M0N> M 100 



NN 

A 0 

0101 

NN 

OB g 

0102 

NN 

C g) 

0103 

NN 

□ D g) 

0104 

NN 

E ® 

0105 

NN 

BRK 


M0N> 

The previous example features free-format hexadecimal input. This means you 
do not have to enter leading zeros. For example, at location 0104 we entered the 
value E rather than OE, Free-format allows you to correct or modify a bad entry 
simply by typing extra digits. For instance, assume that, in the previous exam¬ 
ple, you incorrectly entered 109 after the M command. Enter the address 0100 
before the carriage return to correct the mistake. For example: 

MQN> M lD9DlDa §) 

OlOD NN ESC 
MQN> 


Since a maximum of four digits is all that are needed for an address, only the last 
four are retained. Similarly, if only two digits are expected, then only two will be 
retained. 
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DISPLAY PROGRAM INSTRUCTIONS 

The FANTOM II Monitor offers an important extra feature. You may use the 
Instruction (I) command to display program instructions. The format is similar to 
the memory display instruction except that the Monitor prints a single micro¬ 
processor instruction per line rather than the contents of each memory cell. An 
instruction can be one, two, or three bytes. A carriage return, as with the M 
command, causes FANTOM II to display the next sequential instruction. The I 
command allows data changes using the same procedure as the M command. 
However, only the last byte of an instruction can be altered. 

The next example displays the first four Monitor program instructions. 



When the data in the first byte of an instruction address memory location is not a 
machine instruction, the Monitor prints a DATA=NN message. The next instruc¬ 
tion following the DATA=NN statement is printed after the carriage return. For 
instance, the command sequence: 


M0N> I lAOD ^ 
lAQD DATA=45 
lADE DATA=15 ^ 
lADF 59 ESC 
M0N> 


produces the DATA = NN message until the Monitor encounters a valid machine 
instruction. In this example, the Monitor recognizes the integer (39/;) as a 
machine instruction. 
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BLOCK MEMORY TRANSFER 


The Monitor features a command that allows you to move the contents of a block 
of memory from one location to another. The SLIDE memory command simply 
copies one section of memory to another. 

To use the SLIDE memory command, you must determine the parameters of the 
block of memory to be moved. These parameters include a hexadecimal starting 
address of both the source and destination of the memory block to be moved. In 
addition, a hexadecimal count of the number of memory cells to be transferred is 
also required. Press and hold the CTRL key on the keyboard while pressing the S 
key to initiate the SLIDE command after you determine the program parameters. 
FANTOMII prompts you with the keyword SLIDE. You respond to this keyword 
by typing the starting address of the origin and destination, followed by the 
count and a carriage return. 


The SLIDE command in the next example transfers thirty-two (decimal) bytes of 
data from ROM into low memory. The starting address of data to be moved is 
1400 and the data will be moved to an area of memory starting at location 200. 
The display (D) command only verifies the data manipulation before and after 
the SLIDE command is executed. 


M0N> D 200,21F 


0200 

NN NN NN NN 

NN 

NN 

NN 

NN 

NN 

NN 

NN 

NN 

NN 

NN 

NN 

NN 

021D 

NN NN NN NN 

NN 

NN 

NN 

NN 

NN 

NN 

NN 

NN 

NN 

NN 

NN 

NN 

M0N> 

1400 

D 1400,141F 

OF CE 10 00 

0) 

6F 

01 

6F 

03 

86 

01 

A7 

00 

86 

7F 

A7 

02 

1410 

C6 04 E7 01 

E? 

03 

A7 

DO 

09 

A6 

DO 

63 

DO 

43 

01 

00 

M0N> 

M0N> 

□2G0 

CTRL/S SLIDE 1400 
D 200,21F 

OF CE 10 00 6F 01 

,200,20 ^ 

6F 03 86 

01 

A7 

00 

86 

7F 

A7 

02 

0210 

C6 04 E? 01 

E7 

03 

A7 

00 

09 

A6 

DO 

63 

00 

43 

A1 

00 



PROGRAM EXECUTION CONTROL 


FANTOM II gives you two options when you execute a machine language 
program. With the first option, you execute the complete program by entering 
the GO (G] command and a starting address. The second option allows you to 
execute a program segment with the S or E command. It is primarily used for 
detecting errors in program logic. 

EXECUTING A PROGRAM 

The ETA-3400 Microcomputer Accessory contains a machine language program 
(Tiny BASIC). We will use this routine to show program execution with the GO 
command, G. The G command and a program starting address causes the system 
to fetch the operational code in the memory location specified. Program execu¬ 
tion begins from this location and continues until your program returns control 
to the FANTOM II Monitor, or the RESET key is pressed on the ET-3400. To run 
Tiny BASIC, enter: 

M0N> G ICOD @) 

HTBl G icon 

REM HTBl IS PRINTED OVER M0N> g) 

_L20 print "HEATH TINY BASIC IS RUNNING" §) 

^30 END @) 

_^RUN ^ 

HEATH TINY BASIC IS RUNNING 


j_BYE ® 
M0N> 


NOTE: Tiny BASIC writes over the M0N> prompt with the HTBl letters and then 
issues a carriage return. The prompt character signifies that Tiny BASIC is in 
the command mode and waiting for an instruction. 

Using the Tiny BASIC firmware is only one example of program execution. For 
another example, you should enter the program shown at the top of Page 14 
using the M command. This routine prints a message on your video terminal. 
The format is similar to the listing printed in “Appendix C,’’ and it illustrates a 
format that you might encounter in some computer magazines. The JSR (Jump to 
SubRoutine) mnemonic at hexadecimal location 100 is translated to machine 
code instructions BD 1618. BD is the machine equivalent of JSR and 1618 is the 
starting address of a Monitor subroutine that prints a character string. Likewise, 
FCB is a pseudo-mnemonic that reserves a block of memory for your character 
string (i.e. the message). 




141 


OIDO 

BD 1618 

MSG JSR 

OUTIS 

;OUTPUT CHARACTERS 

□ 1D3 

□D0A48 

FCB 

□D,DA.48 

:INSERT ASCII MSG. 

□ 1D6 

454C4C 

FCB 

45.4C,4C 

;CR,LF,HELLO,□ 

□ 109 

4F00 

FCB 

4F,aa 


OIDB 

BD 14QD 

JSR 

MAIN 

;RETURN TO MONITOR 


Machine language program to print a message on your video terminal. 


The following operational sequence uses the Monitor to enter the machine code, 
check the accuracy of the instructions, and execute the program. 


M0N> 

M : 

lOG 


f . . . Enter machine code. . .) 

□ lOQ 

NN 

BD 


( . . . ISR ...) 

□ 101 

NN 

16 


[ . . . High byte address . .. .) 

□ 1D2 

NN 

18 


f . . . Low byte address.) 

01D3 

NN 

OD 


( . . . Sequentially enter ) 

• 




data from the 

• 




machine code 

• 




until complete. 

OlOD 

NN 

00 


f ... JSR MAIN. ] 

DlOE 

NN 

ESC 



MQN> 


The display instruction (I) lets you sequentially verify the accuracy of your work. 

MON> I ^ 

DIDO BD 1618 


OIDB BD 14D0 ESC 
M0N> 

The program is ready for execution. Use the Go (G) instruction to run your 
program from address 100. 

M0N> G IDD @ 

MQN> 

The computer prints a friendly greeting on the display when you execute the 
program. 
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WARNING 

Always originate your programs at or above hexadecimal 
location 100 because Tiny BASIC and FANTOM II fre¬ 
quently use tbe low memory as a buffer. “Appendix A” 
contains a memory map of the RAM locations that the 
firmware uses. 

EXECUTING A PROGRAM SEGMENT 

Isolating and correcting program errors is another function of program execu¬ 
tion control. This function is commonly referred to as breakpointing. For a more 
complete discussion on breakpointing, refer to the operation section of the 
ET-3400 Microprocessor Trainer Manual. The Monitor supports breakpointing 
techniques by providing you with both single STEP (S) and multiple step 
EXECUTE (E) commands. A third technique lets you enter breakpoint addresses 
into a table and then use the GO command to execute a program segment. 

Assume that, in the previous example, machine instruction BD 1618 was incor¬ 
rectly entered to read BD 160D. The simple method to detect this error is to set 
the program counter to address 100 and step through each instruction, compar¬ 
ing the computer activity with the results expected from your algorithm. 

The single STEP command requires that you define the initial program para¬ 
meters and preset any registers to their initial status. For this example, only the 
program counter is affected and must be preset to the starting address of the 
program (i.e. 100). Use the command to display/alter the program counter to read 
hexadecimal integer 100. Type S after presetting the initial parameters to exe¬ 
cute a single instruction. The Monitor responds by executing the instruction 
located at the program address contained in the program counter, and then 
printing the contents of each CPU register on the terminal. 

M0N> CTRL/P P=NNNN 100 ^ 

M0N> R C=NN B=NN A=NN X=NNNN P=0100 S=NNNN 
M0N> S C=NN B=NN A=NN X=NNNN P=160D S=NNNN 


M0N> 



Analysis of the program data displayed on your terminal, when compared with 
the algorithm (i.e. see Chart 1), shows an incorrect address for the JSR mnemonic. 
Once the initial parameters have been defined, you may continuously single step 
through a program by typing S. 

A better technique for debugging large programs is to use the EXECUTE (E) 
multiple step command. The EXECUTE command is similar to the STEP com¬ 
mand, except control is returned to the Monitor only after a specified number of 
steps have been executed. The step count is a hexadecimal integer. For example, 
the following sequence would execute 18 program steps, and then display the 
registers in the same format as the STEP command. 

M0N> CTRL/P P=NNNN 100 ■§> 

M0N> E 12 @ 

C=NN B=NN A^NN X=NNNN P=NNNN S=NNNN NN NN * 

M0N> 

Breakpointing is another technique for isolating errors in your program. A 
breakpoint in your program interrupts the normal program execution and lets 
you test or analyze program parameters. Type H to set a breakpoint (Haltpoint), 
followed by the address and a carriage return. 


For instance, 

M0N> H lOB @ 

M0N> 

would set a breakpoint in the table that would halt your program at address lOB. 


* NOTE: Be extremely careful when you are using ROM subroutines and the S, E, and H commands. 
In this example, it is not possible to accurately predict the program results because the FANTOMII 
Monitor and the Err-3400 Monitor share RAM locations. Occasionally, this sharing causes unpre¬ 
dictable results. 



When you wish to examine the status of the breakpoint table, simply type 
CTRL/H. This command displays the contents of the breakpoint table. The 
Monitor forbids the entering of additional breakpoints into the table until one of 
the entries is cleared. A cleared table entry is displayed as FFFF . 

M0N> CTRL/H GIDB FFFF FFFF FFFF 
MON> 

The only way to delete a breakpoint from the table is to use the CLEAR (C) 
command. To remove a breakpoint, type C and the address. For instance: 

MON> C lOB @ 

MON> 

would remove the breakpoint lOB from the table. 

A maximum of four breakpoints (Haltpoints) is permissible in the table. An 
attempt to set more than four breakpoints would return the following message: 

ERROR! 


Always place a haltpoint at a RAM location containing an operation code. Use 
the G command to execute the program until the haltpoint is reached. After it 
encounters a haltpoint address, the Monitor prints the current status of the 
microprocessor registers. You may examine or alter the contents of memory or 
registers before proceeding with program execution. 
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PROGRAM STORAGE AND RETRIEVAL 


The ETA-3400 Microcomputer Accessory lets you choose either of two different 
methods for controlling a cassette magnetic tape recorder. The simpler method 
allows you to use a recorder and the ET-3400 keypad. The other method lets you 
use a recorder and console terminal to store data. The advantage to the second 
method is the optional increase in speed with which you can LOAD or DUMP 
your routine. Either method lets you create and use an inexpensive library of 
computer routines. The information you store on cassette tape uses the Kansas 
City Standard (KCS) format with a five second leader and trailer. 

The method you choose to LOAD or DUMP a magnetic tape is optional. However, 
using a console lets you select different baud rates to transfer data between 
cassette tape and computer memory. A baud rate is the measure (bits per second) 
of the speed of transmission of data pulses. We recommend that you use 300 
baud. The important thing about baud rates is that they be the same for each 
device when you are reading or writing information between devices. For your 
convenience, always write the baud rate on the cassette label next to the program 
name. 

CASSETTE USAGE WITH A CONSOLE TERMINAL 

To use the Tape (T) command, press CTRL/T after the Monitor prompt character. 
This command causes the terminal to print a T after which you specify the baud 
rate* (1 to 8). A colon (:) separates the baud rate from the program starting 
address, and a comma is used between the starting and ending address of the 
memory block to be recorded. Prepare the cassette by installing and rewinding a 
tape before typing a carriage return. Always allow the recorder to attain a normal 
operating speed by waiting several seconds before hitting the return key. For 
instance, assume you wish to save sample program number one on Page (22). 

mN> CTRL/T Tl: 100.126 @ 

M0N> 


This command writes the data from memory locations 100 through 126 to 
cassette tape at 2400 baud. When the data is completely written, program control 
is returned to the Monitor and the FANTOM II prompt character reappears. To 
specify 300 baud, type 8 rather than 1. 


*Any integer can be used to specify a baud rate. However, the common rates use: 300 for T8; 600 for 
T4; 1200 for T2; and 2400 for Tl. 



Because 300 baud is the recommended rate, the Monitor lets you select and type 
T rather than CTRL/T when writing data. With this feature, you may standardize 
all your tapes at 300 baud and, in so doing, be able to use either the keypad or the 
terminal to LOAD your tapes. For example, the following two commands are 
equivalent: 

M0N> CTRL/T TO:100,126 ^ 
or 

M0N> T 100,126 @ 

The LOAD (L) command allows you to read data from a cassette tape into 
memory. The baud rate with which the tape was written must agree with the 
baud rate at which you wish to read the data. If the baud rates do not agree or you 
find a tape error, possibly due to dirt on the recorder heads, a tape error message 
will be generated. To use the load command, type L followed by the integer code 
(1 to 8) that indicates the selected baud rate. For example: 

M0N> L 1 ^ 

M0N> 

would load a tape written at 2400 baud. A tape written at 300 baud can be read by 
either an “L8” or “L” command. 

ET-3400 CASSETTE USAGE 

You may use the ET-3400 keypad to save a block of memory on cassette tape. This 
routine prompts you for the first and last address of the memory block to be 
recorded. To execute the cassette dump routine from the keypad, use the DO 
function to transfer control to address 1A8F. The following two prompts are 
printed on the ET-3400 displays: 

_Fr. 

_La. 

You respond to the prompts by entering the first (Fr.) and last (La.) address of the 
block of memory to be saved on cassette tape. Before you enter the last digit, 
activate the cassette recorder by pressing the record button on the cassette. For 
instance, assume you wish to save sample program number one on Page 22. 

• Press DO (D) on the ET-3400 keypad and enter address 1A8F. 

• Enter the first address (0100) of the memory block to be transferred after 

the_Fr. prompt. 



• Enter the first three digits of the last address (012) after the-La. 

prompt. 

• Install and rewind a magnetic tape. Then press the Record button. Be 
sure the leader passes the recording head. 

• Enter the last digit (6) of the address. When the memory block is 
recorded, the ET-3400 displays will print CPU UP. 

The ET-3400 cassette LOAD routine, located in the Monitor from address lABC 
through 1AD4, reads a block of memory data from cassette tape into computer 
memory. The routine proceeds until the last record is found or until a tape error 
occurs. An error can be caused by many diverse problems such as, dirt on the 
tape or tape heads, an incorrect baud rate, etc. If an error is found the ET-3400 
display prints: 

Error 

If no error is found, the CPU UP message is printed after the data is completely 
loaded. Don’t forget to turn off the recorder at this point. The following proce¬ 
dure transfers binary data from a cassette tape into computer memory: 

• Press the DO (D) key on the trainer and enter the first three digits of the 
cassette loader routine, 1AB_ . 

• Install and rewind the cassette tape. 

• Press the PLAY button on the recorder and enter the last digit (C) on the 
keypad. 

• Wait for the message (CPU UP or Error] to be printed on the displays. 


USING A TELETYPEWRITER 


Two commands let you Punch/List formatted absolute binary tapes using the 
Motorola MIKBUG* format. The tape format is shown in Figure 1. When you 
want to load or store binary data from a teletypewriter, use the L or P monitor 
commands. For instance, to transfer binary data from a paper tape to memory, 
enter the following command from your console: 

M0N> LO 

NOTE: Always activate the teletypewriter before you enter any monitor com¬ 
mands. 


*Registered Trademark, Motorola Inc. 
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To Print/Punch a formatted binary tape, enter the P command followed by a 
beginning and ending address. FANTOMII responds by outputting the data. The 
next example displays the sixteen bytes of memory from hexadecimal location 
1400 to 140 F. 

M0N> P 1400,140Fa) 

S113140DOFCE100a6F016FQ3861A7D0867FA7D22D 

S9 

M0N> 

Figure 1 is a breakdown of the Motorola MIKBUG* format. Use the information 
only to decode programs stored in the MIKBUG* format. 



Figure 1 

Courtesy of Motorola Semiconductor Products Inc. 





A SAMPLE PROGRAM 


The sample program provides you with a routine to test the operation of your 
ETA-3400 Microcomputer Accessory. You can use the routine to gain profi¬ 
ciency with the FANTOM II Monitor. The routine is a duplicate (with minor 
changes) of a program listed in the ET-3400 Manual. 


□ lOD 

BD 

FCBC 

START 

JSR 

RED IS 

□ 103 

86 

□ 1 


LDA A 

$01 

□ 1Q5 

2D 

□7 


BRA 

OUT 

□ ID? 

D6 

FI 

SAME 

LDA B 

DIGADD+1 

□ 109 

CB 

ID 


ADD B 

SID 

□ IQB 

D7 

FI 


STA B 

DIGADD+1 

□ lOD 

48 



ASL A 


□ IDE 

BD 

FE3A 

OUT 

JSR 

DUTCH 

□ 111 

CE 

2FDD 


LDX 

S2FDD 

□ 114 

□ 9 


WAIT 

DEX 


□ 115 

26 

FD 


BNE 

WAIT 

□ 117 

16 



TAB 


□ 118 

5D 



TST B 


□ 119 

26 

EC 


BNE 

SAME 

□ IIB 

86 

□ 1 


LDA A 

$D1 

□ IID 

DE 

FD 


LDX 

DIGADD 

□ IIF 

8C 

CIDF 


CPX 

SCIDF 

□ 122 

26 

EA 


BNE 

OUT 

□ 124 

BD 

1400 


JSR 

MAIN 


Use FANTOM II when you enter, verify, and execute the sample program. When 
the program is running, the LED display on the ET-3400 Trainer will sequen¬ 
tially turn each segment on and off and then return to the monitor. 
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MONITOR COMMAND SUMMARY 


REGISTER 


COMMAND 


R 

CTRL/P 

CTRL/X 

CTRL/A 

CTRL/B 

CTRL/C 

MEMORY 


FUNCTION 


Display all the registers. 
Display/alter the program counter. 
Display/alter the index register. 
Display/alter accumulator A 
Display/alter accumulator B 
Display/alter the condition codes. 


COMMAND 


FUNCTION 


D addrl.addrN Display an area of memory on your console start¬ 

ing from location addrl through addrN. 

M addrl Display/Alter sequential memory location start¬ 

ing from addrl. 


I addrl 


Display sequential program instructions starting 
from memory location addrl. 


CTRL/S addrl, addr2,cnt Transfer a block of memory contents starting 

from location addrl to the memory location 
starting at addr2. The hexadecimal integer count 
{cnt<=FF ) is the number of bytes to be trans¬ 
ferred. 



PROGRAM EXECUTION CONTROL 


COMMAND 


FUNCTION 


G addrl 
S addrl 

E cnt 

H addrl 

C addrl 

CTRL/H 


Run the program starting from location addrl. 

Execute a single program instruction from loca¬ 
tion addrl. 

Using the present value of the program counter 
as a starting value, execute a series of instruc¬ 
tions. (cnt<=FF ) 

Insert a single haltpoint address into the break¬ 
point table. 

Remove a single haltpoint address from the 
breakpoint table. 


Examine the status of the breakpoint table. 


INPUT/OUTPUT OPERATIONS 

COMMAND 


FUNCTION 


T addrl, . . . ,addrN 


CTRL/T #,addrl,addrN 


L 

L # 


Write the memory contents from location addrl 
through addrN to a cassette tape at 300 baud. 

Write the memory contents from location addrl 
through addrN to a cassette tape. The symbol 
"#" refers to an integer value representing the 
desired output baud rate. 

Read a cassette tape into memory at 300 baud. 

Read a cassette tape into memory. The symbol 
refers to an integer value representing the 
desired output baud rate. 



ET-3400 USAGE 


COMMAND 


D 1A8F 

-Fr 

-La 

D lABC 


TELETYPEWRITER 

COMMAND 


P addrl.addrN 
L 0 


FUNCTION 


Start the cassette and: 
enter the first address 
enter the last address 

Start the cassette and the monitor routine that 
reads a cassette tape. 


FUNCTION 


Punches a tape using the MIKBUG* format. 

Reads a paper tape that was created with the 
MIKBUG format. 
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HEATH/PITTMAN TINY BASIC 


Tiny BASIC is a subset of BASICS that allows you to easily create your own 
computer programs. For instance, a program to balance your checkbook is easy 
to write using Tiny BASIC. The People’s Computer Company (PCC), a nonprofit 
corporation in Menlo Park, Ca., conceived the idea of a compact computer 
language designed to teach programming skills. The implementation of Tiny 
BASIC follows the philosophy of the original idea. 

In keeping with the “small is good” philosophy, Heath/Pittman Tiny BASIC 
employs a two-level interpreter approach with its consequent reduction in 
speed. The Heath Tiny BASIC firmware is permanently located in your computer 
system. The obvious advantage to this arrangement is the protection from a 
runaway program given to the Tiny BASIC interpreter. Also, you do not need to 
load the interpreter from cassette every time BASIC is used. 

The following pages describe the function, operation, and features of Tiny 
BASIC. Some of the major features are: 

• Integer Arithmetic (16-bit) 

• Twenty six Variables (A, B, . . . ,Z) 

• Fifteen BASIC statements: 


LET 

LOAD 

INPUT 

REM 

RUN 

SAVE 

PRINT 

IF (THEN) 

END 

GOTO 

GOSUB 

RETURN 

BYE 

LIST 

CLEAR 



• FUNCTIONS: Random (RND) 
User (USR) 


*BASIC is a registered trademark of the Trustees of Dartmouth College, 



EDITING COMMANDS 


Tiny BASIC lets you modify a program by inserting, changing, or deleting lines 
in the program. You can insert lines by typing a line with a line number that is 
not currently in the program. You can change lines by typing a new line with the 
same line number, and you can delete lines by typing a line number followed 
immediately by a carriage return. 

Two control characters also permit you to edit a line as you enter it. Hold the 
control (CTRL) key down and then press a U or H to delete either a complete line 
of text or a single character, respectively. 

CTRL/U This command deletes the current line. 

CTRL/H This command deletes the previous character. 
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USING TINY BASIC 

Heath Tiny BASIC employs several FANTOMII Monitor subroutines. Therefore, 
you must always initialize the Monitor and use the Monitor command (G) to start 
BASIC. This causes Tiny BASIC to execute a CLEAR command. BASIC then 
prints a prompt character (d on your terminal, indicating that the system 
firmware is functioning and awaiting a command. The entry to Tiny BASIC is at 
ICOO, so you must use “G ICOO” to start it. 

For example, the following program prints a message on your terminal several 
times. The procedure to implement this program requires that you initialize the 
FANTOM II Monitor, start the Tiny BASIC interpreter, create and execute a 
BASIC program, and finally return control to the monitor. 

• Initialize the FANTOM II monitor by entering "DO 1400 ■§)" . 

• Type "G ICOO on your console. This is the Tiny BASIC starting 
address. 

• Enter the following program statements after the prompt ( ) charac¬ 

ter. 

^IDQ LET !=□ 

j_2Q0 PRINT "HEATH TINY BASIC" 
l300 1=1+1 

1400 IF I<5 GOTO 200 
isno END 

• Type "RUN @)". The program prints 

HEATH TINY BASIC 

five times on your display, and then outputs a prompt character. 

• Type "BYE . System control is then returned to the monitor. 

The BReaK key is used to interrupt the execution of a Tiny BASIC program. This 
is particularly valuable if a program is in an infinite loop. You may stop it by 
pressing the BReaK key and holding it until Tiny BASIC responds 
"!Q AT NNN" . Thes error message tells you that the BreaK key was pressed and 
line NNN is the next line to be executed. To continue running your program, you 
may type "GOTO NNN" . 

NOTE: When your program is at an INPUT statement, the BreaK key is disabled. 
You must either respond to the INPUT request with data or use a “MASTER 
RESET’’ from the ET-3400 keypad to regain system control. 
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MODES OF OPERATION 

You can use either the COMMAND mode or the PROGRAM mode when working 
with Tiny BASIC. An instruction in the COMMAND mode does not have a line 
number and is immediately executed after the carriage return. An instruction in 
the PROGRAM mode has a line number and will not execute until a RUN 
command is given. For example, the following two statements perform the same 
operation. However, the second statement will not be executed until you type 
RUN @ on the keyboard. 

_^PRINT "TESTING THE ETA-3400 ACCESSORY" c$ 

_;_10 PRINT "TESTING THE ETA-3400 ACCESSORY" 

The important thing to remember about the modes of operation is: The COM¬ 
MAND mode primarily assists you in detecting and debugging program errors, 
whereas the PROGRAM mode collects statements that will eventually become 
your finished computer program. 

All Tiny BASIC instructions are valid in either mode. However, some of the 
instructions only make sense in one of the modes. For this reason, RUN and LIST 
should not be used in the PROGRAM mode. Also, END and RETURN should not 
be used in the COMMAND mode. 

All instructions function the same in either mode except for INPUT and GOTO. 
In COMMAND mode, the data that is to be INPUTted must be on the same line. 
Thus, 

_;_INPUT X,5,Y,7 

will cause the variable X to be set to 5 and Y to be set to 7. In addition, in the 
COMMAND mode, a GOTO will not be accepted until the program has been 
started with a RUN command at least once. 
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INSTRUCTIONS 


A list of the instructions that Tiny BASIC recognizes is given below. It assumes 
that you are familiar with programming in the BASIC language. If you are not 
comfortable using BASIC, a course such as “BASIC Programming,” Heath Model 
EC-1100, will help you to become proficient with BASIC. 

INSTRUCTION FORM DESCRIPTION 


REM (text) 


LET Var = Exp 
or 

Var = Exp 


INPUT Varl,...,VarN 


PRINT “message”;Arg 
or 

PR Argl,...,ArgN 


GOTO NNN 


GOSUB NNN 


RETURN 


The remark (REM) is a nonexecutable statement, 
used only for commentary. 

This instruction assigns the value of the expre- 
sion to the variable. Variable values are not pre¬ 
set. Therefore, always assign an initial value to a 
variable before using it. 

This instruction allows you to read data from the 
keyboard and assign values to the variables. 

The message or value of the argument is printed 
on the console terminal. Messages may be 
numbers or letters and are enclosed within quo¬ 
tations. If a comma is used between items in the 
PRINT list, items are printed in fields that start in 
columns 1, 8,16, 32, and so on. If semicolons are 
used between the items, no space is left between 
them when they are printed. 

The program is unconditionally transferred to 
the statement numbered NNN and execution 
continues. 

The go-to-subroutine (GOSUB) instruction 
transfers program execution to the statement 
number. When the RETURN instruction is en¬ 
countered in the subroutine, program execution 
returns to the statement following GOSUB. 

Once program control is transferred to a sub¬ 
routine, program execution continues until pro¬ 
gram control encounters a RETURN statement. A 
subroutine must always be terminated with a 
RETURN statement. 



IF Expl rel Exp2 

THEN Stmt 


RUN 


END 


LIST 

LIST NNN 
LIST NNN1,NNN2 


CLEAR 


BYE 


SAVE 


LOAD 


If the test “Expl rel Exp2” is true, the statement 
after the “THEN” is executed. This statement 
can be any Tiny BASIC statement. The “THEN 
Stmt” part can be replaced by 
GOTO NNN 

Tiny BASIC recognizes the relational operators: 
= <><=>=<>>< 

This instruction starts the program at the state¬ 
ment with the lowest statement number. 

When the interpreter encounters an END state¬ 
ment in your program, it stops program execu¬ 
tion and returns control to the command mode. 

The LIST instruction writes the entire buffer 
contents to your terminal. The LIST instruction 
followed by an argument writes either a single 
program statement or the range of statements 
between the arguments. (( NNNl < NNN2 )) 

The interpreter removes all program statements 
from the buffer when it encounters a CLEAR 
instruction. 

Executing a BYE instruction causes the interpre¬ 
ter to exit BASIC and return to the FANTOM II 
Monitor. The exit does not clear the buffer and 
you can return to BASIC with the buffer contents 
intact by using a warm start fsee Page 33). 

The SAVE instruction directs Tiny BASIC to 
write the buffer contents at 300 baud to a cassette 
tape. 

The LOAD instruction reads a cassette tape at 
300 baud and transfers a previously saved com¬ 
puter program into the buffer. 



MATHEMATICAL EXPRESSIONS 


A mathematical expression is the combination of one or more constants, vari¬ 
ables, and functions connected by arithmetical operators. For instance, the Tiny 
BASIC statement: LET A = 5-l-6/3-2*2 contains a mathematical expression. 

NUMERICAL CONSTANTS 

All constants in Tiny BASIC are evaluated as 16-bit signed integers. An integer 
constant is written without a decimal point, using the decimal digits zero 
through nine. Unless they are preceded by a negative sign, integer constants are 
assumed to be positive. 

VARIABLES 

A variable is any capital letter (A-Z). The letter is a symbol for a numeric value 
capable of changing during program execution. The value of this variable can 
range from -32768 to 32767. “Appendix A” contains the address of each of the 
26 variables used by Tiny BASIC. 

OPERATORS 

Tiny BASIC uses four arithmetical operators; addition (-(-), subtraction (—), 
multiplication (*), and division (/). The statement LET A = 5+6/3-2*2 is an 
example of a mathematical expression using these operators. Tiny BASIC pro¬ 
cesses these operators in the same fashion that you would use to solve an 
algebraic expression. For example. Tiny BASIC first evaluates 6/3 and 2*2 and 
then evaluates the expression to A=5 + 2—4 and sets the variable A equal to 3. 
Because Tiny BASIC evaluates multiplication and division before addition and 
subtraction, you must be careful when writing any mathematical expression. If 
you are not certain of the order of operations, use parentheses to force the order 
you wish. Evaluation always proceeds from left to right, except that arguments 
enclosed within parentheses are evaluated first. 

Tiny BASIC also uses two unary ( + or - ) operators. These operators denote 
whether an expression is positive or negative. The expression LET A = 5— (—3) 
causes the variable A to equal eight. 



TINY BASIC RE-INITIALIZATION (Warm Start) 


Tiny BASIC, in conjunction with the FANTOM II Monitor, allows you to exit 
Tiny BASIC and then re-enter it without clearing program statements and vari¬ 
ables. In particular, the warm start re-entry preserves any remaining program 
and sets your memory limits. You can also reserve a block of memory by 
changing the high or low memory address (“Appendix A, Tiny BASIC Memory 
Map”) and combine a BASIC program with a routine written in machine code. 


The warm start is used after you have left Tiny BASIC by typing “BYE” or by 
pressing RESET on the ET-3400 Trainer. From the FANTOM II Monitor, when 
you have the “MON>” prompt, type “B” to do a warm start of Tiny BASIC. 




FUNCTIONS 


You may use either of two intrinsic functions in Tiny BASIC. The random (RND) 
function allows you to generate a positive pseudo-random integer. The user 
(USR) function is actually a call to a machine language subroutine that you have 
previously written. You can use either function in the COMMAND or PROGRAM 
mode. 

THE RND FUNCTION 

The RaNDom function selects a positive pseudo-random integer between zero 
and one less than the argument. The argument is an integer or variable between 1 
and 32767. For instance, the following statement, when inserted in the sample 
program, causes the computer to store a random integer between zero and eight 
in the variable }. 

LET J = RND(9) 

THE USR FUNCTION 

If a subroutine is written in Tiny BASIC, you simply use the GOSUB and 
RETURN commands to call and return from the subroutine. This is no problem. 
But suppose you wish to call a machine language subroutine from a program 
written in Tiny BASIC. This is the purpose of the USR function. 

The USR function also permits you to call two routines in the Tiny BASIC 
interpreter. These two are commonly called PEEK and POKE, but they are not 
part of Tiny BASIC’s vocabulary. You must implement the USR function to call 
the PEEK and POKE interpreter subroutines. These two routines let you get at 
nearly every feature of your microcomputer. As the name implies, you can 
examine the contents of selected memory locations with the PEEK routine. The 
POKE routine lets you enter data into memory locations. 

First, how do machine language subroutines work? A subroutine is called with a 
JSR instruction. This pushes the return address onto the stack and jumps to the 
subroutine whose address is in the JSR instruction. When the subroutine has 
finished its operation, it executes the RTS instruction, which retrieves that 
address from the stack, returning control to the program that called it. 

Depending on what function the subroutine is to perform, data may be passed to 
the subroutine by the calling program in one or more of the CPU registers and 
results may be passed back from the subroutine to the main program in the same 
way. The registers contain either addresses or more data. In some cases, the 
subroutine has no need to pass data back and forth, so the contents of the 
registers may be ignored. 



The USR function may be called with one, two, or three arguments. These 
arguments are enclosed by parentheses, separated by a comma, and may be 
constants, variables, or expressions. The first of these is always the address of the 
subroutine to be called. The second and third arguments allow you to pass data 
through the CPU registers. The value of the second argument is placed in the 
index register while registers A and B contain the third argument. The forms of 
the USR statement are: 

A = USR (sa) 

A = USR (sa, x] 

A = USR (sa, X, r) 

The starting address (sa) and the index register (x) are 16-bit arguments. The 
third argument (r) is also 16 bits, but must be split between two registers. The 
most significant 8 bits of the third argument go into the B register, while the least 
significant bits are placed in the A register. However, it is important to realize 
that the three arguments in the USR function are decimal expressions and not the 
hexadecimal expressions that are normally associated with machine language 
programs. Any valid combination of numbers, variables, or expressions can be 
used as arguments. 

The value returned by a USR function is a 16-bit number that is split between the 
A and B registers. The most significant byte is in the B register, and the least 
significant byte is in the A register. If your BASIC program does not use a 
returned value (such as POKE), the USR does not have to set up one. However, if 
the USR is supposed to return a value (such as PEEK), you must set up the value 
in the machine language of the USR. 

The sample program on the next page shows you how to implement the USR 
function. The program accesses the Tiny BASIC interpreter subroutines “POKE” 
and “PEEK”, which permit you to alter or examine the contents of memory 
locations. The program lets you store fifteen integer variables into an array that 
occupies the lowest memory in your computer system. 

The program uses a simple loop to input and store data in memory locations zero 
through fourteen. After running the program, use the BYE command to exit Tiny 
BASIC and return to the Monitor. You can then examine the memory locations 
and verify that the program stores data in memory. By using a warm start, you 
can return to your Tiny BASIC program without deleting program statements. 

The program accesses two machine language subroutines. PEEK and POKE. 
PEEK is permanently programmed into ROM starting at hexadecimal memory 
locations 1C14 (7188) and POKE is at location 1C18 (7192). 



SAMPLE USR PROGRAMS 


10 REM THIS PROGRAM IS AN ADAPTATION OF A ROUTINE 

11 REM PUBLISHED BY TOM PITTMAN FOR KILOBAUD MAGAZINE. 

12 REM HEATH HAS OBTAINED PERMISSION FROM KILOBAUD TO 

13 REM REPRINT SEVERAL ARTICLES AT THE END OF THIS 

14 REM MANUAL ABOUT TINY BASIC. THESE ARTICLES PRESENT 

15 REM AN INFORMATIVE DISCUSSION ON TINY BASIC. 

16 REM 

17 REM 

18 REM 

20 REM LET "L" REPRESENT THE VARIABLE FOR THE 

21 REM ADDRESS OF THE INDEX REGISTER. 

22 REM 

23 LET L=0 

24 REM 

30 REM LET "J" REPRESENT THE VARIABLE DATA THAT 

31 REM WILL BE STORED IN ARRAY MEMORY LOCATIONS 0-15. 

32 REM 

33 INPUT J 

34 REM 

40 REM "POKE" THE VARIABLE "J” INTO LOCATION "L" . 

41 REM 

42 LET J=USR(7192,L,J) 

43 REM 

50 REM USE THE "PEEK"COMMAND TO WRITE DATA FROM 

51 REM ARRAY LOCATION "L" INTO VARIABLE "N", THEN 

52 REM USE A PRINT STATEMENT TO VERIFY THAT THE DATA 

53 REM WAS CORRECTLY STORED. 

54 REM 

55 LET N=USR(7188,L) 

56 REM 

57 PRINT "INTEGER ".N," IS LOCATED AT ADDRESS ",L 

58 REM 

60 REM INCREMENT INDEX REGISTER AND TEST FOR END OF ARRAY. 
62 LET L=L+1 
64 IF L<15 GOTO 30 
70 END 



In the next example, the USR function lets you call two separate machine 
language subroutines. A listing of these routines is provided in Figures lA and 
IB. The first routine, “LEDOFF”, turns off the ET-3400 LED display, while the 
other routine, “LEDON”, lights various LED segments. Both routines use ac¬ 
cumulators A and B to pass a value from the USR function to the BASIC program. 


□000 

BD FE5D 

LEDOFF JSR 

OUTSTl 

□003 

□□□ODD 

FCB 

0,0,0 

□□□6 

□□□□DO 

FOB 

0,0,0 

□□□9 

80 

FCB 

80 

□□□A 

86 44 

LDAA 

#»44 

□ □DC 

5F 

CLRB 


GOOD 

39 

RTS 




Figure lA 



0100 

CE C16F 

LEDON 

LDX 

DG6ADD 

0103 

BD FE50 


JSR 

OUTSTl 

0106 

3E5B05 


FCB 

3E,5B,05 

0109 

4T158D 


FCB 

47,15,8D 

OlOC 

OlOE 

OlOF 

86 AA 

5F 

39 


LDAA #/AA 

CLRB 

RTS 



Figure IB 



The USR function requires that you either reserve an area of memory for machine 
code by adjusting the low memory address of BASIC user space upward, or you 
use the available bytes in low memory.* Both methods are featured in this 
example. 


*NOTE: See “Appendix A’* for a complete memory map. Always use caution when you are 
working in memory locations below 100/^ for subroutines. This area is generally used by BASIC 
and the Monitors to store program variables. This example only shows you that areas of memory 
are available. However, the accepted procedure is to reserve an area of memory above address 100// 
for your programs. 



Use the following procedure to adjust BASIC’s low memory limit. For example, 
the “LEDON” subroutine requires sixteen bytes of memory. Therefore, add the 
number of program bytes to the constant 0100/, and insert the result in memory 
locations 20,, and 21„. Replacing these values changes the low memory limit in 
BASIC. 

0100 Tiny BASIC low memory address. 

+ 10 Number of program bytes needed. 

0110 New low memory address. 


Reserve memory locations 0100„ through OlOF,, for the program by using the 
following procedure. First, enter BASIC from the monitor. This will initialize the 
interpreter, and you will be able to set the new low memory limit by exiting 
BASIC and replacing the value with your new low memory limit. For example: 

M0N> G ICOD 
HTBl: BYE 

M0N> M 20 @ 

002D D1 gi 
□□21 □□ 10 @ 

□□22 NN ECS 
M0N> 


Now use the Phantom II Monitor to enter the machine code from Figure lA and 
IB. The two subroutines are almost identical because they call another sub¬ 
routine fOUTSTl) located in the ET-3400 monitor. This routine outputs data to 
the LED displays. The major difference between the routines is in the program 
data. Changing this data changes the display. 


Observe that the program statement, LDX DG5ADD, is missing from the LEDOFF 
routine. The operand, DG6ADD, corresponds to Hexadecimal value C16F, which 
is the address of the left-most digit on your ET-3400 Trainer. This value must be 
in the index register before the USR program inserts this value f49519,o = ClOFft) 
into the index register for the second program. 

The machine language subroutines performs one additional operation before 
returning to BASIC. The hexadecimal value entered into accumulators A and B is 
returned to the USR variable fi.e. A = USRf0)). When the return from subroutine 
instruction is executed, these values are converted to a decimal equivalent and 
stored in variable A. The value stored in this variable determines the on/off delay 
time of the LED display. Changing the value in the accumulators lets you alter 
this delay time. 



Always use a warm start to reenter BASIC after you adjust the memory limits and 
enter the machine code. If you do not use a warm start, BASIC will reinitialize the 
available memory and write over any program that you may have in memory. 
That is: 

MON> B « 


Enter the following BASIC program statements after you adjust the low memory 
boundry and enter your machine language subroutines. 

ID K=5 

2D PR " OBSERVE ET-340D DISPLAY" 

3D A=USR(256) 

4D GOSUB IDO 
50 A=USR(0,49519) 

60 GOSUB 100 
70 K=K-1 

8D IF K>0 GOTO 30 
90 END 
IDD A=A-1 

110 IF A>0 GOTO IDO 
120 RETURN 

The LED display on the ET-3400 will display a message when you run the 
program. Program statement 30 calls the machine language routine that prints 
the “USr Fnc.” message. After lighting the display, the program returns to 
BASIC and enters the time delay subroutine. 

Program statement 50 calls the routine that turns off the LED display. Note that 
the decimal value, 49519, is equivalent to the hexadecimal value C16F. Setting 
the index register in the calling program reduces the memory requirements in 
the subroutine. 

The starting address of each routine is supplied in decimal as the first argument 
in the USR function. If the address is not included, the program will never be 
executed. If the address is wrong, the jump will be to the wrong place in memory 
and unpredictable results will occur. 



APPENDIXES 


APPENDIX A 

Tiny Basic Memory Map 


LOCATION SIGNIFICANCE 

OOOO-OOOF Not used by Tiny BASIC. 

OOlO-OOlF Temporaries. 

0020-0021 Lowest address of user program space. 
0022-0023 Highest address of user program space. 

0024-0025 Program end -I- stack reserve. 

0026-0027 Top of GOSUB stack. 

0028-002F Interpreter parameters. 

0030-007F Input line buffer and Computation stack. 
0080-0081 Random Number generator workspace. 
0082-00B5 Variables: A,B,...,Z 

00B6-00C7 Interpreter temporaries. 

OlOO-OFFF Tiny BASIC user program space. 


ICOO Cold start entry point. 

1C03 Warm start entry point. 

lC06 Character input routine. 

1C09 Character output routine. 

ICOC Break test. 

ICOF Backspace code. 

ICIO Line cancel code. 

ICII Pad character. 

1C12 Tape mode enable flag. (HEX 80 = enabled) 

1C13 Spare stack size. 

1C14 Subroutine (PEEK) to read one byte from RAM to B and A. 

(address in X) 

Subroutine (POKE) to store A and B into RAM at address in X. 


1C18 
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APPENDIX B 

Tiny Basic Error Message Summary 


NUMBER 

MEANING 

0 

Break during execution. 

8 

Memory overflow; line not inserted. 

9 

Line number 0 is not allowed. 

13 

RUN with no program in memory. 

18 

LET is missing a variable name. 

20 

LET is missing an =. 

23 

Improper syntax in LET. 

25 

LET is not followed by END. 

34 

Improper syntax in GOTO. 

37 

No line to GOTO. 

39 

Misspelled GOTO. 

40 

Misspelled GOSUB. 

41 

Misspelled GOSUB. 

46 

GOSUB invalid. Subroutine does not exist. 

59 

PRINT not followed by END. 

62 

Missing close quote in PRINT string. 

73 

Colon in PRINT is not at end of statement. 

75 

PRINT not followed by END. 

95 

IF not followed by END. 

104 

INPUT syntax bad — expects variable name. 

123 

INPUT syntax bad — expects comma. 

124 

INPUT not followed by END. 

132 

RETURN syntax is bad. 

133 

RETURN has no matching GOSUB. 

134 

GOSUB not followed by END. 



139 

154 

158 

164 

183 

188 

211 

224 

226 

232 

233 

234 
253 
259 
266 
267 
275 
284 

287 

288 
290 
293 
296 
298 

303 

304 
306 
330 
363 
365 


END syntax bad. 

Cannot list line number 0. 

LIST not followed by END statement. 

LIST syntax error — expects comma. 

REM not followed by END. 

Memory overflow, too many GOSUB’S. 
Expression too complex. 

Divide by zero. 

Memory overflow. 

Expression too complex. 

Expression too complex using RND. 
Expression too complex in direct evaluation. 
Expression too complex — simplify. 

RND(O) not allowed. 

Expression too complex. 

Expression too complex for RND. 

USR expects ( before argument. 

USR expects ) after argument. 

Expression too complex. 

Expression too complex for USR. 

Expression too complex. 

Syntax error in expression — expects value. 
Syntax error — missing ) . 

Memory overflow — CHECK USR function. 
Expression too complex in USR. 

Memory overflow. 

Syntax error. 

Syntax error — check IF/THEN. 

Missing statement. Type keyword. 
Misspelled statement. Type keyword. 
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APPENDIX C 

Heath/Wintek Monitor Listing 



HEATH KF-YBGARn MONITOR 
RAM AND CHARACTERS DEFINED 


HEATH/WINTEK TERMINAL MONITOR SYSTEM 

^ BY JIM WILSON FOR WINTEK CORPORATION 

* COPYRIGHT 1978 DY WINTEK CORP* 

* ALL RIGHTS RESERVED 


** CONDITIONAL ASSEMDLIES 

0000 DEDUG EQU 0 

** CHARACTER DEFINITIONS 


GOOD 

CR 

EQU 

ODH 

OOOA 

LF 

EQU 

OAH 

0020 

SPACE 

EQU 

/ / 




PIA 

DEFINITION 

1000 


ORG 

$1000 

1000 

TERM 

RMB 

1 

1001 

TERH^C 

RMB 

1 

1002 

TAPE 

RMB 

1 

1003 

TAPE*C 

RMB 

1 



EXTERNALS 

FE6B 

SSTEP 

EQU 

0FE6BH 

F'EFC 

SWIUEl 

EQU 

OFEFCH 

FF76 

OP TAB 

EQU 

0FF76H 

FCBC 

R E DIS 

EQU 

OFCBCH 

FEI7B 

DISPLAY 

EQU 

0FD7BH 

FE20 

DUTBYT 

EQU 

0FE20H 

FII43 

BKSP 

EQU 

0FD43H 

FD25 

PROMPT 

EQU 

0FD2GH 

FC86 

OUTSTA 

EQU 

0FC86H 

FE52 

OUTSTR 

EQU 

0FEG2H 



RAM 

TEMPORARIES 

OOCC 


ORG 

OCCH 

OOCC 

USERC 

RMB 

1 

OOCD 

USERB 

RMB 

1 

OOCE 

USERA 

RMB 

1 

OOCF 

USERX 

RMB 

2 

OODl 

USERP 

RMB 

o 

00E4 


ORG 

0E4H 

0004 

NBR 

EQU 

4 

00E4 

BKTBL 

RMB 

2tHBR 

OOEC 

TO 

RMB 


OOEE 

T1 

RMB 

2 

OOFO 

DIGADD 

RMB 

o 

00F2 

USERS 

RMB 

2 

OOF4 

T2 

EQU 

* 

00F4 

SYSSWI 

RMB 

3 

OOF 7 

UIRQ 

RMB 

3 


DEBUG CODE OFF 


CONDX CODES 

ACCUMULATORS 
INDEX 
P. C ♦ 

FOUR BREAKPOINTS ALLOWED 
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HEATH KEYBOAftn MONITOR 
RAM AND CHARACTERS DEF'INED 


OOFA 

USWI 

RMB 

3 

OOFD 

umi 

RMB 

3 

FFFF 


IF 

ELSE 

BEBUG-l 

1400 


ORG 

ENDIF 

$1400 






** 

MAIN MONITOR LOOP 







1) 

FEELS OUT MEMORY 







2) 

SEARCHES FOR PAST 

INCARNATIONS 





* 


A) 

CLEARS BREAKPOINTS IF REINCARNATED 







B> 

CLEARS BREAKPOINT TABLE OTHERWISE 





* 

3) 

SENDS PROMPT "MON^ 

n 





* 

4> 

ACCEPTS COMMAND CHARACTERS AND JUMPS 







TO APPROPRIATE HANDLER 

1400 

OF 



MAIN 

SEI 




1401 

CE 

10 

00 


L DX 


$*TERM 

TERMINAL PIA 

1404 

6F 

01 



CLR 


IfX 

IN CASE IRREGULAR ENTRY 

1406 

6F 

03 



CLR 


3fX 


1408 

86 

01 



LDA 

A 

♦ 1 


140 A 

A 7 

00 



STA 

A 

OtX 


140C 

86 

7F 



LDA 

A 

♦OlilllllB 


140E 

A7 

02 



STA 

A 

2»X 


1410 

C6 

04 



LDA 

B 

»4 


1412 

E7 

01 



STA 

B 

IfX 


1414 

E7 

03 



STA 

B 

3f X 


1416 

A7 

00 



STA 

A 

o 

X 

IDLE MARKING!! 





)t£ 

NOW 

FIND MEMORY EXTENT 


1418 

09 



MAINl 

r»EX 




1419 

A6 

00 



LDA 

A 

OfX 


141B 

63 

00 



CON 


OfX 


141D 

43 




COM 

A 



141E 

A1 

00 



CMP 

A 

OfX 


1420 

26 

F6 



BNE 


MAINl 


1422 

63 

00 



COM 


OfX 

RESTORE GOOD BYTE 

1424 

86 

15 



LDA 

A 

♦ 4JffNBR + 5 


1426 

09 



MAIN2 

HEX 



GO TO MONITOR GRAVEYARD 

1427 

4A 




DEC 

A 



1428 

26 

FC 



BNE 


MAIN2 


142A 

35 




TXS 




142B 

86 

OC 



LDA 

A 

i.-2*NBR'f4 


142II 

EE 

08 



LDX 


2)|cNBRf X 

RETURN ADDRESS IF ANY 

142F 

8C 

14 

4C 


CPX 


*MAIN5 


1432 

27 

09 



BEQ 


MAIN4 

IS RE-INCARNATION 

1434 

C6 

FF 



LDA 

B 

»$FF 


1436 

30 




TSX 




1437 

E7 

OA 


MAIN3 

STA 

B 

2*NBR+2fX 


1439 

08 




INX 




143 A 

4A 




DEC 

A 



143B 

26 

FA 



BNE 


MAIN3 




46 


HEATH KEYBOARD MONITOR 
MAIN - MAIN MONITOR LOOP 


14311 

86 

04 


MAIN4 

LB A 

A 

♦NBR 

CLEAR BREAKPOINTS 

143F 

33 



liAIN44 

PUL 

B 



1440 

33 




PUL 

B 



1441 

30 




TSX 




1442 

EE 

OC 



LDX 


2*NBR+4fX 


1444 

E7 

00 



STA 

B 

Of X 


1446 

4A 




DEC 

A 



1447 

26 

F6 



BNE 


MAIN44 


1449 

OC 




CLC 



NO ERROR MESSAGE 

144A 

31 




INS 




144B 

31 




INS 




144C 

24 

CD 


MAINS 

BCC 


MAIN6 

NO ERROR 

144E 

BD 

16 

18 


JSR 


OUT IS 


1451 

on 

OA 

45 


FCB 


CRfLFf TERROR! 

^ f 7 f 0 

145B 

BD 

16 

18 

MAIN6 

JSR 


OUT IS 


145E 

on 

OA 

4D 


FCB 


CRfLFf"MON:> ^ 

fO 

1466 

78 

10 

00 

MAIN66 

TST 


TERM 


1469 

2 A 

FB 



BPL 


MAIN66 


146B 

BD 

18 

El 


JSR 


INCH 

INPUT COMMAND 

146E 

CE 

19 

EF 


LDX 


♦CMDTAB-3 


1471 

08 



MAIN7 

INX 




1472 

08 




INX 




1473 

08 




INX 




1474 

A1 

00 



CMP 

A 

Of X 


1476 

25 

F9 



BCS 


MAIN7 


1478 

26 

D2 



BNE 


MAINS 

ILLEGAL COMMAND 

147A 

36 




PSH 

A 



147B 

BD 

18 

63 


JSR 


OLITSP 


147E 

32 




PUL 

A 



147F 

C6 

4C 



LDA 

B 

#-MAIN5/256)J;256-f MAINS 

1481 

37 




PSH 

B 



1482 

C6 

14 



LDA 

B 

#MAIN5/2S6 


1484 

37 




PSH 

B 



1485 

E6 

02 



LDA 

B 

2f X 


1487 

37 




PSH 

B 


, 

1488 

E6 

01 



LDA 

B 

If X 


148A 

37 




PSH 

B 



148B 

5F 




CLR 

B 



148C 

DE 

F2 



LDX 


USERS 


14eE 

39 




RTS 









** 

GO ~ GO 

TO USER CODE 






* 

entry: 

(X> USERS 







exit: 

UPON BREAKPOINT 






* 

uses: 

ALLfT0fTlfT2 


148F 

BD 

16 

25 

GO 

JSR 

AHO 


1492 

24 

04 



BCC 

GOl 

NO OPTIONAL ADDRESS 

1494 

A7 

07 



STA A 

7f X 


1496 

E7 

06 



STA B 

6 f X 


1498 

BD 

FE 

6B 

GOl 

JSR 

SSTEP 

STEP PAST BKPT 

149B 

C6 

04 



LDA B 

*NBR 


149D 

30 



G02 

TSX 


COPY IN BREAKPOINTS 

149E 

EE 

OC 



LDX 

2)*cNBR+4f X 
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HEATH KEYBOARD MONITOR 
GO - GO TO USER CODE 


14A0 

A6 

00 



LDA 

A 

14A2 

36 




PSH 

A 

14 A3 

36 




PSH 

A 

14A4 

86 

3F 



LDA 

A 

14A<S 

A7 

00 



STA 

A 

14A8 

5A 




DEC 

B 

14A9 

26 

F2 



BNE 


14AB 

20 

3E 



BRA 


14 AD 

30 



603 

TSX 


14AE 

A6 

06 



LDA 

A 

14B0 

26 

02 



BNE 


i4B2 

6A 

05 



DEC 


14B4 

E6 

05 


G033 

LDA 

B 

14B6 

4A 




DEC 

A 

14B7 

A7 

06 



STA 

A 

14B9 

9F 

F2 



STS 


14BB 

9E 

EC 



LDS 


14BD 

36 




PSH 

A 

14BE 

86 

04 



LDA 

A 

14C0 

97 

EC 



STA 

A 

14C2 

32 




PUL 

A 

14C3 

30 




TSX 


14C4 

08 



G04 

INX 


14C5 

08 




INX 


14C6 

A1 

OD 



CMP 

A 

14C8 

26 

19 



BNE 


14CA 

El 

OC 



CMP 

B 

14CC 

26 

15 



BNE 


14CE 

BD 

16 

18 


JSR 


14D1 

OD 

OA 

00 


FCB 


14D4 

86 

04 



LDA 

A 

14D6 

33 



G044 

PUL 

B 

14D7 

33 




PUL 

B 

14D8 

30 




TSX 


14D9 

EE 

OC 



LDX 


14DB 

E7 

00 



STA 

B 

14DD 

4A 




DEC 

A 

14DE 

26 

F6 



BNE 


14E0 

7E 

15 

53 


JMP 


14E3 

7A 

00 

EC 

605 

DEC 


14E6 

26 

DC 



BNE 






* 

SWI 

NOT 

14E8 

BD 

FE 

6B 


JSR 


14EB 

9F 

EC 


G07 

STS 


14ED 

CE 

14 

AD 


LDX 


14F0 

7E 

FE 

FC 


JMP 



OfX 


♦$3F 

OfX 

G02 

G07 


6fX 
G033 
^f X 
5f X 

6fX DECREMENT USER PC 

USERS 

TO 

*NBR 

TO 


SEARCH TABLE FOR HIT 

2*NBR+5fX 

605 NO HIT HERE 

2*NBR+4fX 

G05 

OUTIS 

CRfLFfO 

♦NBR 

OP CODE INTO B 

2)kNBR + 4fX 
OfX 

0044 

REGS DISPLAY REGISTERS 

TO 

G04 

MONITORS SO INTERPRET 

SSTEP STEP PAST SUI 

TO 

♦ G03 
SWIOEl 
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he:ath keyboard monitor 

BKF-T - INSERT BREAKPOINT 





** 

BKPT - 

INSERT BREAKPOINT 

INTO TABLE 






entry: 

NONE 






♦ 

exit: 

SET IF TABLE 

FULL 





t 

uses: 

ALL.TO 



14F3 

30 


PKPT 

TSX 




lAFA 

86 

FF" 


LIiA A 

|:$FF 



1AF6 

C6 

04 


LDA P 

♦NBR 



1AF8 

08 


BKF*i 

INX 




1AF9 

08 



INX 


LOOK FOR EMPTY 

SPOT 

lAFFi 

A1 

04 


CMP A 

AfX 



lAFC 

26 

04 


PNE 

BKP2 

NOT EMPTY 


lAFE 

A1 

05 


CMP A 

5yX 



1500 

27 

05 


BEQ 

BKP3 

IS EMPTY 


1502 

5A 


BKP2 

DEC B 




1503 

26 

F3 


BNE 

BKPl 

STILL HOPE 


1505 

on 



SEC 




1506 

39 



RTS 


FIJLLI ! 


1507 

BD 

16 25 

BKP3 

JSR 

mo 

GET BREAKPOINT 

OALUE 

150 A 

24 

04 


BCC 

BI\P4 

NO ENTRY 


150(: 

A7 

05 


STA A 

5^X 



150E 

E7 

04 


STA B 

4^X 



1510 

OC 


BKP4 

CLC 




1511 

39 



RTS 








** 

CLEAR - 

CLEAR BREAKPOINT ENTRY 





entry: 

(X) =- USERS 






exit: 

SET IF NOT 

F nUND 




* 

uses: 

ALLfTO 


1512 

86 

04 

CLEAR 

LDA A 

♦ NBR 


1514 

97 

EC 


STA A 

TO 


1516 

BD 

16 25 


JSR 

AHO 

RPT LOCATION 

1519 

25 

04 


BCS 

CL El 

NO VALID HEX 

151B 

A6 

07 


LDA A 

7f X 


151LI 

E6 

06 


LDA B 

6fX 

USER PC FOR DEFAULT 

151F 

30 


CL El 

TSX 



1520 

08 


CLE2 

INX 



1521 

08 



INX 



1522 

A1 

05 


CMP A 

5f X 

SEARCH TABLE 

1524 

26 

04 


BNE 

CLE3 

NOT FOUND 

1526 

El 

04 


CMP B 

AfX 


1528 

27 

07 


BEQ 

CLE4 

FOUND 

152A 

7A 

00 EC 

CLE3 

DEC 

TO 


152P 

26 

FI 


BNE 

CLE2 


152F 

OD 



SEC 



1530 

39 



RTS 



1531 

C6 

FF 

CLE4 

LDA B 

*$FF 


1533 

E7 

04 


STA B 

4f X 

CLEAR ENTRY 

1535 

E7 

05 


STA B 

5» X 


1537 

OC 



CLC 
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HEATH KEYBOARD MONITOR 
BKPT -- INSERT BREAKPOINT 


153S 

39 




RTS 






** 

EXEC - 

PROCESS MULTIPLE SINGLE STEP 












* 

entry: 

NONE 





* 

exit: 

REGISTERS PRINTED 





♦ 

uses: 

ALL ^ fT2 

1539 

BD 

16 

25 

FXFC; 

JSR 

AHO GET COUNT 

153C 

25 

09 



BCS 

EXECl 

153F 

36 

01 



LDA A 

♦1 DEFAULT COUNT 

1540 

20 

05 



BRA 

EXECl 

1542 

36 



FXFCO 

PSH A 

SAOE COUNT 

1543 

BD 

FF 

6B 


JSR 

SSTEP STEP CODE 

154^f> 

32 




PUL A 


1547 

4A 



FXECl 

DEC A 


1548 

26 

F8 



BNE 

EXECO MORE STEPS 

154A 

BD 

16 

18 


JSR 

OUT IS 

154H 

OD 

OA 

00 


FCB 

CRf LFtO 






STEP -■ 

STEP USER CODE 












* 

entry: 

NONE 





* 

exit: 

REGISTERS PRINTED 





* 

uses: 

ALLfTOrTlfT2 

1550 

BD 

FE 

6B 

STEP 

JSR 

SSTEP STEP USER CODE 






REGS "• 

DISPLAY ALL USER REGISTERS 












* 

entry: 

NONE 






exit: 

REGISTERS PRINTED 





* 

uses: 

ALL?TO 

1553 

5F' 



F^FGS 

CLR B 


1554 

DE 

F2 



LDX 

USERS 

1556 

86 

43 



LDA A 

♦ "C" 

1558 

8D 

26 



BSR 

REGSl 

155 A 

86 

42 



LDA A 

♦ "B" 

155C 

8D 

24 



BSR 

REGS3 

155E 

86 

41 



LDA A 

♦ "A' 

1560 

8D 

20 



BSR 

REGS3 

1562 

86 

58 



LDA A 

♦ "X" 

1564 

8D 

IB 



BSR 

REGS2 

1566 

86 

50 



LDA A 

♦ 'P' 

1568 

8D 

18 



BSR 

REGS3 

156A 

86 

53 



LDA A 


i56C 

09 




DEX 


15611 

DF 

FC 



stx 

TO 

156r 

CE 

00 

FB 


LDX 

♦ TO-l 

1572 

8D 

OC 



BSR 

REGSl 

1574 

DF 

F2 



LDX 

USERS 
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h£;:ath keyboard monitor 

REGISTER DISPLAY COMMANDS 


1576 

EE 

06 



LDX 


6fX 

(X) ^ USERPC 

1578 

DF 

EC 



STX 


TO 


157A 

A6 

00 



LDA 

A 

OfX 


157C 

8D 

63 



BSR 


TYPINO 

type: instruction 

i57E 

OC 




CLC 




157F 

39 




RTS 




1580 

08 



RE6S1 

INX 




1581 

5C 



REGS2 

INC 

B 



1582 

BD 

18 

65 

RE6S3 

JSR 


OUTCH 

OUTPUT REGISTER NAME 

1585 

86 

3D 



LDA 

A 



1587 

Bi:i 

18 

65 


JSR 


OUTCH 


158A 

20 

67 



BRA 


TYPIN2 






** 

REGISTER DISPLAY COMMANDS 




* 







entry: 

(X> - USERSP 




* 


(B) ^ 0 




* 

exit: 

OPTIONAL REPLACEMENT VAIUE STORED 




* 

uses: 

ALLfTO 

158C 

08 


REGP 

INX 


i58i:i 

08 



INX 


158E 

08 


REGX 

INX 


158F" 

5C 



INC B 


1590 

08 


REGA 

INX 


1591 

08 


REGD 

INX 


1592 

8B 

40 

REGC 

ADD A 

♦$40 DISPLACE REG NAME 

1594 

3D 

EA 


BSR 

REGS! OUTPUT WITH NAMf- 

1596 

37 



PSH B 


1597 

BD 

16 25 


JSR 

AHO 

159A 

24 

2F 


BCC 

HEM4 

159C 

3D 

05 


BSR 

REGl 

159E 

17 



TBA 


i59r 

33 



PUL B 


15 AO 

5A 



DEC B 


15A1 

27 

08 


BEQ 

REG2 

15 A3 

09 


REGl 

BEX 


15A4 

A7 

00 


ST A A 

Of X 

15A6 

A1 

00 


CMP A 

Of X 

15A8 

27 

01 


BEQ 

REG2 

15AA 

OD 



SEC 


15AB 

39 


F'^EG2 

RTS 





** 

MEM - 

DISPLAY MEMORY BYTES 




* 







entry: 

(B) 0 






(X) USER S*p4 




* 

uses: 

ALL fTO 

15AC 

5A 


MEM 

DEC B 
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MEM - DISPLAY MEMORY OR INSTRUCTION 

INST - DISPLAY INSTRUCTIONS 

)K entry: <B> = 0 

* (X) USER S*P* 

* uses: all f to 


15AD 

37 


INST 

PSH 

B 



15AE 

EE 

06 


ldx 


6rX 

GET USER P.C* 

15B0 

8D 

73 


BSR 


AHO 


15B2 

24 

07 


BCC 


MEMl 


15B4 

36 



PSH 

A 



15B5 

37 



PSH 

B 



15B6 

30 



TSX 




15B7 

EE 

00 


LDX 


O.X 


15B9 

31 



INS 




15BA 

31 



INS 




15BB 

OC 


NEMl 

CLC 




15BC 

33 


me::m2 

PUL 

B 



15BD 

24 

05 


BCC 


MEM3 


15BF 

8D 

E2 


BSR 


REGl 


15C1 

->cr 

a \, uI 

OA 


DCS 


MEM5 


15C3 

08 



INX 




15CA 

8D 

08 

HEM3 

BSR 


typins 

TYPE THE DATA 

15C6 

37 



PSH 

B 


SAME MODE FLAG 

15C7 

8D 

5C 


BSR 


AHU 

GET REPLACEMENT MALUE 

15C9 

23 

Fi 


BLS 


MEM2 


15CB 

OC 


MEM4 

CLC 




15CC 

33 



PUL 

B 



15CD 

39 


MEM5 

RTS 










TYPINS 

- TYPE INSTRUCTION IN HEX 





* 

entry: 

CX) - ADDRESS 

OF INSTRUCTION 





* 

exit: 

<X) ADDRESS 

OF NEXT INST* 






uses: 

ALL 


15CE 

A6 

00 


TYPINS 

LDA A 

OfX 

OP CODE 

15 DO 

36 




PSH A 


ONTO STACK 

15Di 

DF 

EC 



STX 

TO 


15D3 

8D 

43 



BSR 

OUT IS 


:L5D5 

OD 

OA 

00 


FCB 

CRfLFfO 


15D8 

CE 

00 

EC 


LDX 

♦ TO 


15DB 

8D 

2D 



BSR 

0UT4HS 


15DD 

32 




PUL A 



15DE 

5D 




TST B 



15DF 

2B 

OE 



BMI 

TYPINl 

ONE BYTE ONLY 

15E1 

8D 

66 


TYPINO 

BSR 

BYTCNT 


15E3 

5A 




DEC B 



15E4 

2A 

09 



BPL 

TYPINl 

IS MALID INST* 

15E6 

5C 




INC B 


RESTORE (B) 

15E7 

8Ii 

2F 



BSR 

OUTIS 


15E9 

44 

41 

54 


FCB 

"DATA^:^" »0 


15EF 

DE 

EC 


TYPINl 

LDX 

TO 


15F1 

8D 

19 



BSR 

0UT2HS 


15F3 

Cl 

01 


TYPIN2 

CMP B 

♦ 1 




HEATH KEYBOARD MONITOR 

MEM - DISPLAY MEMORY OR INSTRUCTION 


15FS 

2B 

20 

BMI 

THBl 

15 f 7 

27 

13 

BEG 

0UT2HS 

15F9 

20 

OF 

BRA 

0UT4HS 





UiT 

DISB - 

DISPLAY BREAKPOINTS 




¥ 

entry: 

NONE 




t 

exit: 

BREAKPOINT TABLE PRINTED 




* 

uses: 

ALL 

15FB 

C6 

06 

DISB 

LDA B 

#6 OFFSET INTO TABL 

15FD 

30 



TSX 


l^iFE 

08 


DISBl 

INX 


IGFF 

5A 



DEC B 


1600 

26 

FC 


BNE 

DISBl 

1602 

C6 

04 


LDA B 

♦NBR 

1604 

811 

04 

DISB2 

BSR 

0UT4HS 

1606 

OA 



DEC B 


1607 

26 

FB 


BNE 

DISB2 

1609 

39 



RTS 






)k)f: 

GUT4HSf 

0UT2HS -- OUTPUT 

HEX AND SPACES 




)K 

entry: 

(X) - ADDRESS 






exit: 

X UPDATED PAST 

BYTE(S) 





uses: 

X 

i> 

o 


160A 

BD 

05 

0UT4HS 

BSR 

THB 

TYPE HEX BYTE 

160C 

8D 

03 

nUT2HS 

BSR 

THB 


160E 

7E 

18 63 


JMP 

OUTSP 






THB “ 

TYPE HEX BYTE 



* 






entry: 

(X) ADDRESS OF BYTE 




exit: 

X INCREMENTED PAST BYTE 



* 

uses: 

X » A»(.' 

1611 

37 

THB 

PSH B 


1612 

5F 


CLR B 


1613 

BD 17 E4 


JSR 

OCH 

1616 

33 


PUL B 


1617 

39 

THBl 

RTS 



* 

* 


OUT IS "• OUTPUT IMBEDDED STRING 

CALLING contention: 

JSR OUTIS 

FCB ^STRING" fO 

<NEXT INST> 

exit: to next instruction 
uses: a^x 



53 
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MEM - DISPLAY MEMORY OR INSTRUCTION 


1618 

30 

OUT IS 

TSX 


1619 

EE 

00 

LBX 

Of X 

1618 

31 


INS 


i61C 

31 


INS 


i6irf 

37 


PSH B 


161E 

5f 


CLP B 


161F 

BD 

17 C3 

JSR 

OAS 

1622 

33 


PUL B 


1623 

6E 

00 

JMP 

OfX 






** 

AHO 

- 

ACCUMULATE 

HEX 

OALUE 
















entry: 

NONE 







* 

exit: 

(BA) := ACCUMULATED HEX VALUE OR 





* 



(A) ASCII 

IF NO HEX 





* 



'C' SET 

FOR 

VALID HEX 





)!c 



"Z" SET 

FOR 

TERMINATOR CR 






uses: 

Bf Af C 



1625 

5F 



AHV 

CLP 

B 




1626 

BD 

18 

A3 

AHOD 

JSR 


I HD 


GET FIRST DIGIT 

1629 

24 

ID 



BCC 


AH03 


NOT HEX 

162B 

36 



AHOl 

PSH 

A 




162C 

37 




PSH 

B 




i62i:t 

48 




ASL 

A 




162E 

59 




POL 

B 




162F 

48 




ASL 

A 




1630 

59 




POL 

B 




1631 

48 




ASL 

A 




1632 

59 




ROL 

B 




1633 

48 




ASL 

A 




1634 

59 




ROL 

B 



MAKE WAY FOR NEXT DIGIT 

1635 

37 




PSH 

B 




1636 

36 




PSH 

A 




1637 

BD 

IS 

A3 


JSR 


I HD 



163 A 

24 

07 



BCC 


AH02 


THIS NOT HEX 

163C 

33 




PUL 

B 




163i:i 

IB 




ABA 





163E 

33 




PUL 

B 




163F 

31 




INS 





1640 

31 




INS 




DISCARD OLD VALUE- 

1641 

20 

E8 



BRA 


AH 01 



1643 

31 



AH02 

INS 





1644 

31 




INS 




SKIP LATEST VAL.IIE 

1645 

33 




PUL 

B 




1646 

32 




PUL 

A 




1647 

OD 




SEC 





1648 

39 



AH 03 

RTS 
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HEATH KEYBOARD MONITOR 

BYTCNT - COUNT INSTRUCTION BYTES 





3K4: 

Ur 

BYTCNT 

- COUNT INSTRUCTION BYTES 




)K 

♦ 

entry: 

<A) OPCODE 





exit: 

(B) 0rlf2 OR 3 




* 


'C' CLEAR IF RELATIVE ADDRESSING 






'2' SET IF ILLEGAL 

1649 

36 


BYTCNT 

PSH A 


164A 

16 



TAB 


164B 

CE 

FF 75 


LDX 

♦OPTAB-1 

164E 

08 


BYTl 

INX 


164F 

CO 

08 


SUB B 

#8 

1651 

24 

FB 


BCC 

BYTl 

1653 

A6 

00 


LDA A 

OrX 

1655 

46 


BYT2 

ROR A 


1656 

5C 



INC B 


1657 

26 

FC 


BNE 

BYT2 

1659 

32 



PUL A 


165A 

25 

IE 


BCS 

BYT7 

165C 

81 

30 


CMP A 

♦$30 CHECK FOR BRANCH 

165E 

24 

04 


BCC 

BYT3 

1660 

81 

20 


CMP A 

♦ $20 

1662 

24 

14 


BCC 

BYT5 IS BRANCH 

1664 

81 

60 

BYT3 

CMP A 

♦ $60 

1666 

25 

11 


BCS 

BYT6 IS ONE BYTE 

1668 

81 

8D 


CMP A 

♦ $8D 

166A 

oy 

OC 


BEQ 

BYT5 IS BSR 

166C 

84 

BD 


AND A 

♦ $BD 

166E 

81 

8C 


CMP A 

♦ $8C 

1670 

27 

04 


BEQ 

BYT4 IS X OR SP I MM* 

1672 

84 

30 


AND A 

♦$30 CHECK FOR THREE BYTES 

1674 

81 

30 


CMP A 

♦ $30 

1676 

C2 

FF 

BYT4 

SBC P 

♦ $FF 

1678 

5C 


BYT5 

INC B 


1679 

5C 


BYT6 

INC B 


167A 

39 


BYT7 

RTS 








COPY - 

COPY MEMORY EL 

SEWHERE 





* 

entry: 

NONE 







exit: 

BLOCK MOVED 






)*£ 

Ur 

uses: 

ALL 






V 

COMMAND 

syntax: <cntl 

-)D <F ROM>» <T0> r <COUNT 

167B 

BD 

16 

18 

COPY 

JSR 

OUTIS 


167E 

53 

4C 

49 


FCB 

^SLIDE 'fO 


1685 

BD 

16 

25 


JSR 

AHV 

GET sKFROM* 

1688 

24 

19 



BCC 

C0P3 

NO HEX 

168A 

36 




PSH A 



168B 

37 




PSH B 



168C 

BD 

16 

25 


JSR 

AHV 

GET tlOt 

168F 

24 

10 



BCC 

C0P2 

NO HEX 

1691 

36 




PSH A 



1692 

37 




PSH B 
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COPY - COPY MEMORY ELSEWHERE 


1693 

Bir 

16 

25 


JSR 

AHO 

RET *C0UNT3»£ 

1696 

24 

07 



BCC 

COPl 

NO HEX 

1698 

36 




PSH A 



1699 

37 




PSH B 



169A 

BD 

19 

6B 


JSR 

MOVE 

MOVE DATA 

169D 

OC 




CLC 


NO ERRORS 

169E 

39 




RTS 



169F 

31 



COPl 

INS 



16A0 

31 




INS 



16A1 

31 



CDP2 

INS 



16A2 

31 




INS 



16A3 

on 



C0P3 

SEC 



16A4 

39 




RTS 








sKif; 

LOAD - 

LOAD DATA 

INTO MEMORY 






entry: 

NONE 







exit: 

'C' SET 

IF ERROR 





JK 

uses: 

ALLfTO 


16A5 

BD 

16 

25 

LOAD 

JSR 

AHO 

GET OPTIONAL PARAMETERS 

16A8 

25 

02 



BCS 

LOAOO 


16AA 

86 

08 



LDA A 

♦ 8 

DEFAULT TO CASSETTE 

16 AC 

16 



LDAOO 

TAB 



i6AD 

34 



LOAO 

DES 



16AE 

34 




DES 


SCRATCHPAD ON STACK 

16AF 

BD 

18 

BE 

LOAl 

JSR 

ICT 

INPUT CASSETTE/TERM 

16B2 

84 

7F 



AND A 

♦ 7FH 


16B4 

81 

53 



CMP A 

*"S' 


16B6 

26 

F7 



BNE 

LOAl 


16B8 

BD 

18 

BE 


JSR 

ICT 


16BB 

84 

7F 



AND A 

#7FH 


16BD 

81 

39 



CMP A 

^'9' 


16BF 

27 

36 



BEQ 

L0A4 

IS EOF 

16C1 

34 




DES 



16C2 

81 

31 



CMP A 

^'1' 


16C4 

26 

E9 



BNE 

LOAl 

NOT START-OF-RECORD 

16C6 

B7 

Cl 

6F 


STA A 

0C16FH 

TURN ON D»P* 

16C9 

4F 




CLR A 



16CA 

30 




TSX 



16CB 

BD 

18 

C2 


JSR 

IHB 

COUNT 

16CE 

BD 

18 

C2 


JSR 

IHB 

ADDRESS (2 BYTES) 

16D1 

BD 

18 

C2 


JSR 

IHB 


16D4 

30 




TSX 



16D5 

EE 

01 



LDX 

1 ^ X 

GET FWA OF BUFFER 

16117 

D7 

EC 



STA B 

TO 


16D9 

33 




PUL B 



16DA 

CO 

03 



SUB B 

*3 

ACCOUNT 3 BYTES 

16riC 

37 



L0A2 

PSH P 



16riD 

D6 

EC 



LDA B 

TO 


16DF 

BD 

18 

C2 


JSR 

IHB 


16E2 

D7 

EC 



STA B 

TO 


16E4 

33 




PUL B 



16E5 

5A 




DEC B 





HEATH KEYBOARD MONITOR 
LOAD - FROM TAPE OR TERMINAL 


16E6 

26 

F4 



BNE 

L0A2 

TURN OFF D.P. 

16E8 

7F 

Cl 

6F 


CLR 

0C16FH 

16EB 

i:i6 

EC 



LDA B 

TO 


16ED 

CE 

00 

EC 


LDX 

#T0 


16FO 

BD 

18 

C2 


JSR 

IHB 


16F3 

AC 




INC A 



16F4 

27 

B9 



BEQ 

LOAl 


16F6 

on 



L0A3 

SEC 



16F7 

31 



LDA4 

INS 



16FB 

31 




INS 



16F9 

39 




RTS 








TIME CRITICAL ROUTINES ! ! ! ! ! 




* 

SINCE CASSETTE I/O IS DONE USING ONLY SOFTWARE 




* 

TIMING LOOPS* THE ROUTINE 'BIT' MUSI BE. CALLED 




* 

EVERY 208 US. CRITICAL TIMES IN THESE ROUTINES 




)t£ 

ARE LISTED IN THE COMMENT FIELDS OF CERTAIN 




* 

INSTRUCTIONS IN THE FORM *NNN US*. THESE TIMES 




* 

REPRESENT THE TIME REMAINING BEFORE THE NEXT 




* 

RETURN FROM 'BIT'. THE TIME INCLUDES THE 





LABELED INSTRUCTION AND INCLUDES THE EXECUTION 




* 

OF THE. 'RTS' AT THE END OF 'BIT'. SOME 





ROUTINES HAVE ’NNN US USED" AS A COMMENT 




* 

ON THEIR LAST STATEMENT. THIS REPRESENTS 




* 

THE TIME EXPIRED SINCE THE LAST RETURN 




* 

FROM 'BIT' INCLUDING THE LABLED INSTRUCTION. 




** 

HIGH SPEED LOAD 




* 

ACCEPTS ADDITIONAL BIT/CELL PARAMETER 





ENTRY? (A) == COMMAND 




* 

<B) - 0 




* 

USES? AL.L*T0*T1)-T2 

16FA 

8B 

40 

CTLT 

ADD A *«40 DISPL.ACE TO PRINTING 

16FC 

BD 

18 65 


JSR OUTCH ECHO TO USER 

1 6FF 

BD 

16 25 


JSR AHV 

1702 

16 



TAB 

1703 

C4 

7F 


AND B *$7F 

1705 

20 

03 


BRA PTAP 




** 

RCRD - RECORD MEMORY DATA IN 'KCS' FORMAT 





ENTRY? <B) 0 




* 

USES? ALL*T0*T1*T2 

1707 

CB 

09 

RCRD 

ADD B *9 
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PUNCH - PUNCH MEMORY 



** 

* 

DUMP - 

RAW MEMORY DUMP 16 BYTES PER LINE 



entry: 

(B) 0 


t 

uses: 

TOfTlfT2 

1709 5A 

DUMP 

DEC B 







** 

PTAP " 

PUNCH TO TAPE 






IK 

entry: 

DEFAULT VALUES 

ON STACK 





t 


BELOW RETURN 

ADDRESS 





)K 

exit: 

'C' SET FOR ERROR 





3K 

USES: 

ALL^TOfT1rT2 


170A 

30 



PTAP 

TSX 



170B 

37 




PSH B 


CASSETTE/TERMINAL FL 

170C 

BD 

16 

25 


JSR 

AHV 

ACCUMULATE HEX 

i70F 

24 

OB 



BCC 

PTAPl 

USE DEFAULT 

1711 

A7 

03 



STA A 

3»X 

STORE FWA 

1713 

E7 

02 



STA B 

2 jX 


1715 

BD 

16 

25 


JSR 

AHV 


1710 

A7 

05 



STA A 

5 f X 


171A 

E7 

04 



STA B 

AfX 


171C 

A6 

05 


PTAPl 

LDA A 

5fX 


171E 

E6 

04 



LDA P 

AfX 

GET LWAf FWA 

1720 

EE 

02 



LDX 

2fX 


1722 

DF 

EE 



STX 

T1 


1724 

97 

F5 



STA A 

T2 + 1 


1726 

D7 

F4 



STA B 

T2 


1728 

33 




PUL B 







)K)K 

PUNCH - 

WRITE LOADER FILE TO TERMINAL OR CAS: 




* 

entry: 

(Tl) FWA BYTES TO PUNCH 




>K 


<T2) LWA BYTES TO PUNCH 




)K 


<B) CASSETTE TERMINAL FLAG: 




* 


(B) > 0 THEN TO CASSETTE 




)K 


USING CB) CELLS PER BIT 




)K 


(B) := 0 THEN TO TERMINAL 




* 


(B) < 0 THEN TO TERMINAL WITH 




)K 


IMBEDDED SPACES AND NO SI»ETC 




)K 

uses: 

ALLrTOfTl 

1729 

5D 


PUNCH 

TST B 


172A 

2F 

07 


BLE 

PNCHO 

172C 

BD 

18 27 


JSR 

OLT OUTPUT LEADER 

172F 

86 

07 


LDA A 

#7 

1731 

20 

02 


BRA 

PNCHl 

1733 

86 

04 

PNCHO 

LDA A 

♦4 186 US 

1735 

4A 


PNCHl 

DEC A 


1736 

26 

FD 


BNE 

PNCHl 

1738 

37 



PSH B 

SAVE FLAGf 160 US 

1739 

D6 

F4 


LDA B 

T2 (BA) = end; 156 US 



HEATH KEYBOARD MONITOR 
FUNCH - PUNCH MEMORY 


173B 

96 

F5 



L8A 

A 

T2+1 


17311 

90 

EF 



SUB 

A 

Tl + 1 


173F 

82 

EE 



SBC 

B 

T1 

(BA) EN8 - CURRENT 

1741 

25 

58 



BCS 


PNCH9 

BONE? 144 US 

1743 

81 

OF 



CMP 

A 

#15 

J40 US 

1745 

C2 

00 



SBC 

B 

#0 


1747 

33 




PUL 

B 


RESTORE FLAG 

1748 

24 

02 



BCC 


PNCH2 

AT LEAST FULL REC0R8 

174A 

20 

03 



BRA 


PNCH3 


174C 

86 

OF 


PNCH2 

L8A 

A 

♦ 15 


174E 

01 




NOP 




174F 

97 

EC 


PNCH3 

STA 

A 

TO 

COUNTER 

1751 

88 

04 



A88 

A 

#4 


1753 

97 

E8 



STA 

A 

TO+1 

BYTE COUNT 

1755 

CE 

17 

86 


L8X 


♦SISTR 

114 US 

1758 

58 




TST 

B 



1759 

2A 

03 



BPL 


PNCH35 


1758 

CE 

17 

CO 


L8X 


♦CRSTR 


175F 

88 

63 


PNCH35 

BSR 


OAS 

OUTPUT ASCII STRING 

1760 

CE 

00 

EE 


L8X 


♦ TO+2 


1763 

4F 




CLR 

A 


(A) - CHECKSUM 

1764 

01 




NOP 




1765 

58 




TST 

B 



1766 

28 

03 



BMI 


PNCH5 


1768 

09 




BEX 




1769 

A5 

00 



BIT 

A 

X 

o 

5 CYCLE NUTHIN" 

1768 

01 



PNCH5 

NOP 




176C 

01 




NOP 




176D 

88 

75 



BSR 


OCH 

182 US 

176F 

01 




NOP 




1770 

26 

F9 



BNE 


PNCH5 


1772 

8E 

EE 



L8X 


T1 


1774 

88 

62 


PNCH6 

BSR 


OSH 

182 US 

1776 

7A 

00 

EC 


8EC 


TO 


1779 

2A 

F9 



BPL 


PNCH6 


1778 

43 




COM 

A 



177C 

36 




PSH 

A 



1778 

01 




NOP 




177E 

86 

07 



L8A 

A 

♦ 7 


1780 

4A 



PNCH7 

8EC 

A 



1781 

26 

F8 



BNE 


PNCH7 


1783 

32 




PUL 

A 



1784 

58 




TST 

B 



1785 

28 

02 



BMI 


PNCH75 

NO CHECKSUM 

1787 

88 

6E 



BSR 


OHB 


1789 

86 

10 

00 

PNCH75 

L8A 

A 

TERM 


178C 

43 




COM 

A 



1788 

49 




ROL 

A 



178E 

8F 

EE 



STX 


T1 


1790 

8F 

EE 



STX 


T1 


1792 

22 

9F 



8HI 


PNC HO 

NOT 80NE? NO BREAK 

1794 

08 




INX 




1795 

37 




PSH 

B 



1796 

86 

06 



L8A 

A 

#6 


1798 

4A 



PNCH8 

8EC 

A 



1799 

26 

FD 



PNE 


PNCH8 
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PUNCH - PUNCH MEMORY 


i79i:i 

33 



PNCH9 

PUL 

B 


140 US 

179C 

01 




NOP 




179EI 

B6 

03 



LDA 

A 

♦3 


179F 

4A 



PNCHA 

DEC 

A 



17 AO 

26 

FD 



BNE 


PNCHA 


17A2 

CE 

17 

BB 


LDX 


♦S9STR 


17A5 

5D 




TST 

B 



17A6 

2B 

OD 



BMI 


PNCHC 

RETURN 

17A8 

8D 

19 



BSR 


OAS 


17AA 

5D 




TST 

B 



17AB 

27 

08 



BEQ 


PNCHC 

NOT CASSETTE: 

17Ari 

86 

13 



LDA 

A 

♦ 19 


17AF 

4A 



PNCHB 

DEC 

A 



17B0 

26 

FD 



BNE 


PNCHB 


17B2 

SB 

73 



BSR 


OLT 


17B4 

OC 




CLC 



NO ERRORS 

17B5 

39 



PNCHC 

RTS 




17B6 

on 

OA 

53 

81 SIR 

FCB 


CRfLFf"81"^0 


17BB 

OD 

OA 

53 

S9STR 

FCB 


CRj-LF. "S9" f 0 


17C0 

OD 

OA 

00 

CRSTR 

FCB 


CRfLFf0 






** 

'if 

OAS ~ 

OUTPUT ASCII STRING 




)|C 

entry: 

(X) = ADDRESS 

OF STRING IN FORH: 






"STRING"f0 







(B) - CASSETTE/TERM FLAG 





exit: 

X POINTS PAST 

END OF STRING ZERO 





uses: 

X y A. C 


17C3 

A6 

00 

<L 

a 

LDA A 

OrX 

97 US 

17C5 

08 



I NX 



17C6 

8D 

49 

OASl 

BSR 

OAB 

88 US 

17CS 

01 



NOP 



17C9 

86 

10 


LDA A 

♦ 16 

20B US 

17CB 

4A 


GAS2 

DEC A 



17CC 

26 

FD 


BNE 

0AS2 


17CE 

A6 

00 


LDA A 

OfX 


17D0 

08 



INX 



17D1 

6D 

00 


TST 

OyX 


17D3 

26 

FI 


BNE 

OASl 

NOT LAST BYTE 

17D5 

08 



INX 



17D6 

20 

39 


BRA 

OAB 

OUTPUT LAST AND Rl 




** 

OSH “ 

OUTPUT OPTIONAL SPACE WITH HEX BYTE 



♦ 

* 

entry: 

(X) ADDRESS OF BYTE 



* 


(A) ^ CHECKSUM 



* 


(B) CASSETTE/TERMINAL FLAG 



* 

exit: 

(X) INCREMENTEDy (A) UPDATED 



* 

uses: 

XyAfC 

17D8 

AB 00 

OSH 

ADD A 

OfX 174 US 

17DA 

36 


PSH A 
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HEATH KEYBOARD MONITOR 
OUTF^LIT ROUTINES 


17BB 

86 

05 

LDA A 

♦ 5 


1 7i:iD 

5D 


TST B 



17DE 

2A 

09 

BPL 

OCHO 

NO SPACE 

17E0 

BD 

18 63 

JSR 

OUTSP 

OUTPUT SPACE 

17E3 

32 


PUL A 







)|t* 

OCH - 

OUTPUT AND CHECKSUM HEX BYTE 




* 

entry: 

(X) ADDRESS OF BYTE 




* 


(A) = CHECKSUM 






(B) - CASSETTE/TERMINAL FLAG 




* 

exit: 

(X) INCREMENTED^ <A) UPDATED 




* 


'2' SET IF END OF HEADER INF 





uses: 

X f A r C 

17E4 

AB 

00 

OCR 

ADB A 

OfX .174 US 

17E6 

36 



PSH A 


17E7 

86 

06 


LDA A 

*6 

17E9 

01 


OCHO 

NOP 


17EA 

4A 


OCHl 

DEC A 


17EB 

26 

FD 


BNE 

OCHl 

17Eri 

A6 

00 


LDA A 

O^X 

17ErF" 

81* 

06 


BSR 

OHB 

17r-1 

32 



PUL A 


17F2 

08 



INX 


17F3 

8C 

00 FO 


CPX 

♦ Tl-f2 

17F6 

39 



RTS 

16 US USED 





** 

J/ 

OHB “ 

OUTPUT 

HEX BYTE 




* 

entry: 

(A) 

^ BYTE 




* 


(B) 

= CASSETTE TERMINAL FLAG 




* 

uses: 

AfC 


17F7 

36 


OHB 

PSH A 


112 US 

17F8 

44 



LSR A 



17F9 

44 



LSR A 



17FA 

44 



LSR A 



i7FB 

44 



LSR A 



17FC 

8D 

08 


BSR 

0HB2 


17FE 

86 

12 


LDA A 

♦ 18 

208 US 

1800 

4A 


OHBl 

DEC A 



1801 

26 

FD 


BNE 

OHBl 


1803 

32 



FUL A 



1804 

84 

OF 


AND A 

♦ $F 


1806 

81 

OA 

0HB2 

CMP A 

♦ 10 


1808 

24 

02 


BCC 

0HB3 

IS A - F 

180A 

20 

03 


BRA 

0HB4 


180C 

01 


OHB 3 

NOP 



180D 

SB 

07 


ADD A 

♦ 7 


180F 

8B 

30 

0HB4 

ADD A 

♦$30 
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HEATH KEYBOARD MONITOR 
OUTPUT ROUTINES 





OAB - 

OUTPUT ASCII BYTE 



* 





* 

ENTRY: 

<A) ASCII 



♦ 


(B) CASSETTE/TERMINAL FLAG 




exit: 

<A) PRESERUEB 



)|c 

uses: 

C 

1811 

5D 

OA£( 

TST B 

SO US 

1812 

2F" 51 


BLE 

DUTCH 





** 

OCB " 

OUTPUT 

CASSETTE BYTE 




* 









entry: 

<B) 

CELLS/BIT 

COUNT 






(A) 

CHARACTER 






uses: 

C 



1814 

OC 


OCB 

CLC 



START BIT? 74 

1815 

8D 

27 


BSR 

BITl 


72 US 

1817 

36 



PSH A 



208 US 

1818 

OD 



SEC 



STOP BIT 

1819 

46 



ROR A 




181A 

8D 

IB 

OCBl 

BSR 

BIT 


200 US 

181C 

01 



NOP 



208 US 

18111 

44 



LSR A 




181E 

26 

FA 


BNE 

OCBl 



1820 

SB 

15 


BSR 

BIT 



1822 

32 



PUL A 




1823 

08 



I NX 




1824 

09 



DEX 



0 CYCLE PSEUDO 

1825 

20 

10 


BRA 

BIT 








OLT “ 

OUTPUT LEADER TRAILER 




* 







ENTRY 

: NONE 




* 

exit: 

5 SECONDS NARKING WRITTEN 





uses: 

C 

1827 

OD 


OLT 

SEC 

78 US 

1828 

36 



PSH A 


1829 

8i:i 

13 


BSR 

PITl 

182B 

37 



PSH B 


132C 

C6 

6E 


LDA B 

#110 

182E 

17 



TBA 


182F 

8D 

06 

OLTl 

BSR 

BIT 

1831 

01 



NOP 


1832 

4A 



DEC A 


1833 

26 

FA 


BNE 

OLTl 

1835 

33 



PUL B 


1836 

32 



PUL A 




HEATH KEYBOARD MONITOR 
OUTPUT ROUTINES 


3«c:|c 

* 

t 


BIT - OUTPUT 'C' TO CASSETTE 

entry: (B) = CELL/BIT COUNT 

'C' - BIT 

uses: c except 'C' 


1837 

36 


BIT 

PSH 

A 


192 US 

1838 

86 

15 


LDA 

A 

♦ 21 


183A 

01 



NOP 




183B 

01 



NOP 




183C 

20 

03 


BRA 


BIT3 

182 US 

183E 

36 


EiITl 

PSH 

A 


64 US 

183F 

86 

01 


LDA 

A 

♦ 1 


1841 

37 


BIT3 

PSH 

B 



1842 

8C 



FCB 


$8C 

3 CYCLE SKIP 

1843 

86 

ID 

BIT4 

LDA 

A 

♦ 29 


1845 

4A 


BITS 

DEC 

A 



1846 

26 

FD 


BNE 


BIT5 


1848 

4C 



INC 

A 



1849 

8D 

10 


BSR 


FLIP 

43 US 

184B 

86 

IE 


LDA 

A 

♦ 30 


184D 

4A 


BIT6 

DEC 

A 



184E 

26 

FD 


BNE 


BIT6 


1850 

07 



TPA 




1851 

84 

01 


AND 

A 

♦ 1 

MASK TO CARRY 

1853 

8D 

07 


BSR 


FLIPl 


1855 

5A 



DEC 

B 



1856 

26 

EB 


BNE 


BIT4 


1858 

33 



PUL 

B 



1859 

32 



PUL 

A 



i85A 

39 



RTS 


_ 

... ALL TIMES REFERENCED HERE 


! ! ! 






** 

FLIP - 

FLIP CASSETTE BIT 





* 







* 

fntry: 

(A) ^ 0 THEN NO FLIP 







<A) - 1 THEN FLIP 






uses: 

A^C EXCEPT 'C' 

185B 

01 



FLIP 

NOP 

35 US 

185C 

B8 

10 

02 

FLIPl 

EOR A 

TAPE 

1B5F 

B7 

10 

02 


STA A 

TAPE 

1862 

39 




RTS 

24 US 


OUTSP -* 

* 

* entry: 

)i£ exit: 

* uses: 

86 20 OUTSP LDA A 


OUTPUT SPACE TO TERMINAL 

NONE 
<A) ^ 

ArC 


1863 
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HEATH KEYBOARD MONITOR 
OUTPUT ROUTINES 

** OUTCH - OUTPUT CHARACTER TO TERMINAL 

* 






entry: 

(A) 

CHARACTER 





exit: 

(A> PRESEROEO UNLESS -LF- 





uses: 

C 


1865 

36 


OUTCH 

PSH A 



1866 

37 



PSH 0 



1867 

80 

21 


BSR 

PRO 

BAUD RATE BE TERM INF- 

1869 

00 



SEC 


STOP BIT 

186A 

80 

32 


BSR 

WOB 


186C 

OC 



CLC 


START BIT 

186D 

80 

2F 


BSR 

WOB 


186F 

00 



SEC 



1870 

46 



ROR A 



1871 

80 

2B 

OUTCl 

BSR 

WOB 

WAIT - OUTPUT BIT 

1873 

44 



LSR A 



1874 

26 

FB 


ONE 

OUTCl 


1876 

80 

26 


BSR 

WOB 

WAITr OUTPUT STOP 

1878 

33 



PUL P 



1879 

32 



PUL A 



187A 

81 

OA 


CMP A 

♦ LF 


187C 

26 

OB 


BNE 

0UTC2 


187E 

36 



PSH A 



187F 

4F 



CLR A 



1880 

80 

E3 


BSR 

OUTCH 

OUTPUT FILL CHARACTER 

1882 

80 

El 


BSR 

OUTCH 


1884 

80 

OF 


BSR 

OUTCH 


1886 

80 

00 


BSR 

OUTCH 


1888 

32 



PUL A 



1889 

39 


0UTC2 

RTS 







** 

He 

BRO - 

BAUD RATE 

DETERMINATION 




* 

entry: 

NONE 





* 

exit: 

<B) = BAUD RATE DIVISOR 







(COMPENSATED FOR 5*13 EXTRA 







EXECUTION TIME!!) 




* 

uses: 

BfC 


188A 

36 


BRO 

PSH A 



188B 

C6 

01 


LOA B 


ASSUME 110 BAUD 

1880 

B6 

10 00 


LOA A 

TERM 

BAUD SWITCH DATA 

1890 

43 



COM A 



1891 

84 

OE 


AND A 

#1110B 

MASK TO SWITHCES 

1893 

44 



LSR A 



1894 

27 

06 


BEQ 

BRD2 

IS 110 

1896 

56 


BROl 

ROR B 



1897 

4A 



OEC A 



1898 

26 

FC 


BNE 

BROl 


189A 

CO 

05 


SUB B 

♦ 5 

EXECUTION COMPENSATION 

189C 

32 


BR02 

PUL A 



1890 

39 



RTS 





HEATH KEYBOARD MONITOR 
OUTPUT ROUTINES 






WOB - 

WAIT AND OUTPUT BIT 




* 







entry: 

(B> = DELAY COUNT 




t 


'C' - BIT 





exit: 

(B)f 'C' PRESERVED 





uses: 

C 

189E 

37 


WOF: 

PSH B 


189F 

8D 

72 


BSR 

DLB DELAY ONE BIT 

18A1 

20 

68 


BRA 

UIBl 





*J|f 

I HD - 

INPUT HEX DIGIT FROM TERMINAL 




JK 







entry: 

NONE 




* 

exit: 

(A) =•■ HEX VALUE IF VALID 






ASCII OTHERWISE 




* 


'C' SET IF HEX 




)*c 


'Z' SET IF CR 




t 

uses: 

ArC 

18A3 

8B 

3C 

I HD 

BSR 

INCH 

18A5 

81 

20 


CMP A 

♦SPACE 

18A7 

27 

FA 


BED 

ihd ignore spac 





** 

ASH - 

ASCII TO HEX TRANSLATOR 











* 

entry: 

(A) ASCII 





* 

EXIT). 

uses: see -ihd- 


18A9 

80 

30 

ASH 

SUB A 

♦ '0' 


18AB 

25 

OC 


BCS 

ASHl 

NOT HEX 

18 AD 

81 

OA 


CMP A 

*10 


18AF 

25 

10 


BCS 

ASH3 


18B1 

80 

11 


SUB A 



18B3 

81 

06 


CMP A 

46 


18B5 

25 

08 


BCS 

ASH2 

IS HEX 

18B7 

8B 

11 


ADD A 


DISPLACE BACK 

18B9 

8B 

30 

ASHl 

ADD A 

♦ ^0" 


18BB 

81 

OD 


CMP A 

♦ CR 


18BD 

OC 



CLC 



18BE 

39 



RTS 



18BF 

80 

F6 

ASH2 

SUB A 

*"10 


18C1 

39 


ASH3 

RTS 




** 

IHB - 

INPUT HEX BYTE 

* 

ENTRY? 

<B) = CASSETTE/TERMINAL FLAG 

* 


<X) = ADDRESS 



(A) = CHECKSUM 

* 

EXIT? 

A» X UPDATED 

* 


(B) PRESERVED 


HEATH KEYBOARD MONITOR 
INPUT ROUTINES 


18C2 

36 


IHB 

PSH 

A 


18C3 

8D 

19 


BSR 


ICT 

18C5 

84 

7F 


AND 

A 

♦7FH 

18C7 

8D 

EO 


BSR 


ASH 

18C9 

48 



ASL 

A 


18CA 

48 



ASL 

A 


18CB 

48 



ASL 

A 


18CC 

48 



ASL 

A 


18CD 

97 

EC 


STA 

A 

TO 

18CF 

8Ei 

OD 


BSR 


ICT 

18D1 

84 

7F 


AND 

A 

♦ 7FH 

18D3 

8D 

D4 


BSR 


ASH 

18D5- 

9B 

EC 


ADD 

A 

TO 

18117 

A7 

00 


STA 

A 

OfX 

18D9 

32 



PUL 

A 


18DA 

AB 

00 


ADD 

A 

OfX 

18DC 

08 



INX 



ISDD 

39 


IHB2 

RTS 







ICT - 

INPUT 








* 

entry: 

(B) 



* 

exit: 

(A) 



)»c 

uses: 

CJ 

< 

18DE 

5D 

ICT 

TST B 


18DF 

2E 54 


BGT 

ICC 







INCH ~ 

INPUT 





* 








entry: 

NONE 






exit: 

(A) 





* 

USES? 

ArC 

i8El 

37 



INCH 

PSH B 


18E2 

8D 

A6 



BSR 

BRD 

1BE4 

17 




TBA 


18E5 

16 



INCl 

TAB 


18E6 

54 




LSR B 


i8E7 

5C 




INC B 


18E8 

7D 

10 

00 

INC2 

TST 

TERM 

18EB 

2B 

FB 



BMI 

INC2 

18ED 

8D 

15 



BSR 

WIB 

18EF 

25 

F7 



BCS 

INC2 

18F1 

16 




TAB 


18F2 

86 

80 



LDA A 

*80H 

18F4 

8D 

OE 


INC3 

BSR 

WIB 

18F6 

46 




ROR A 


18F7 

24 

FB 



BCC 

INC3 

18F9 

8D 

09 



BSR 

WIB 

18FB 

25 

03 



BCS 

INC4 

18FD 

7C 

10 

00 


INC 

TERM 

1900 

84 

7F 


INC4 

AND A 

#$7F 

1902 

33 




PUL B 



SAVE CHECKSUM 

INPUT CASSETTE/TERMINAL 

ASCII ” HEX 

INPUT CASSETTE/TERMINAL 
ASCII - HEX 
PLACE IN MEMORY 


FROM CASSETTE OR TERMINAL 

CASSETTE/TERMINAL FLAG 
CHARACTER 

IS CASSETTE 

TERMINAL CHARACTER 

CHARACTER 

BAUD RATE DETERMINE 


WAIT FOR SPACING 
WAITr INPUT START 
WAS NOISE 

WAIT? INPUT BIT 

GET STOP 
NO FRAME ERROR 
SEND STOP BIT 
MASK TO SEUEN BITS 



HEATH KEYBOARD MONITOR 
INPUT ROUTINES 


1903 

39 



RTS 








WIB - 

WAIT AND 

INPUT 

BIT 




* 








♦ 

entry: 

(B) - 

BELAY 

COUNT 




Hi 

exit: 

'C' == 

BIT 





Hi 

uses: 

C 



1904 

37 


WIB 

PSH P 




1905 

8D 

OC 


BSR 

DLB 


WAIT ONE BIT TIME 

1907 

CB 

80 


ADD B 

♦ 80H 



1909 

CO 

80 


SUB B 

♦ 80H 



190B 

C9 

00 

WIBl 

ADC B 

♦ 0 


COPY BIT INTO LSB 

190D 

F7 

10 00 


STA B 

TERM 



1910 

56 



ROR B 



RESTORE SMASHED 'C' 

1911 

33 



PUL B 




1912 

39 



RTS 









HiHc 

DLB - 

DELAY ONE BIT AND RETURN (TERM) IN B 













entry: 

<B) == DELAY CONSTANT 






exit: 

(B) (TERM) .AND* 11111110 B 





Ha 

uses: 

C EXCEPT "C' 

1913 

C5 

FE 


DLB 

BIT B 

♦ OFEH 

1915 

26 

11 



BNE 

DLB4 NOT 110 BAUD 

1917 

5A 




DEC B 


1918 

27 

02 



BEQ 

DLBl 110 FULL- BIT TIME 

191A 

C6 

38 



LDA B 

♦ 56 

i9ic: 

C8 

31 


DLBl 

FOR B 

♦ 49 

191E 

36 




PSH A 


i9ir 

86 

12 


Dl B2 

LDA A 

♦ 18 

1921 

4A 



DLB 3 

DEC A 


1922 

26 

FD 



BNE 

DLB3 

1924 

5A 




DEC B 


1925 

26 

F8 



BNE 

DLB2 

1927 

32 




PUL A 


1928 

BC 

19 

13 

DLB4 

CPX 

DLB 5 CYCLE NOTHIN'^ 

192B 

01 




NDP 


192C 

5A 




DEC B 


192D 

26 

F9 



BNE 

DLB4 

192F 

F6 

10 

00 


LDA B 

TERM 

1932 

C4 

FE 



AND B 

♦ ♦FE 

1934 

39 




RTS 






HaHa 

ICC - 

INPUT CASSETTE CHARACTER 


* GETS BITS FROM CASSETTE IN SERIAL FASHION 

* EACH BIT CONSISTS OF SEVERAL 'CELLS' 

* EACH CELL IS EITHER 1/2 CYCLE OF 1200HZ 

»: OR 1 CYCLE OF 2400HZ 

Jk AT 8 CELLS/BIT THE ROUTINE IS 'KCS' 

* COMPATIBLE 


HEATH KEYBOARD MONITOR 
INPUT ROUTINES 


* 





* 

entry: 

(B) == 




* 

exit: 

(A) = 




* 


'C' == 




♦ 

uses: 

AfC 

1935 

37 


ICC 

PSH B 


1936 

54 



lsr b 


1937 

8D 

IE 

ICCl 

BSR 

TNC 

1939 

25 

FC 


BCS 

ICC! 

193B 

5A 



DEC B 


193C 

2A 

F9 


BPL 

ICCl 

193E 

33 



PUL. B 


i93F 

86 

7F 


LDA A 

♦ 0111 

1941 

37 


ICC 2 

PSH B 


1942 

36 



PSH A 


1943 

BD 

12 

ICC3 

BSR 

TNC 

1945 

5A 



DEC B 


1946 

26 

FB 


BNE 

ICC3 

1948 

32 



PUL A 


1949 

33 



PUL B 


194A 

46 



ROR A 


194B 

25 

F4 


BCS 

ICC2 

19411 

37 



PSH B 


194E 

36 



PSH A 


194F 

8D 

06 

ICC4 

BSR 

TNC 

1951 

5A 



DEC B 


1952 

26 

FB 


BNE 

ICC4 

1954 

32 



PUL A 


1955 

33 



PUL B 


1956 

39 



RTS 



CELLS PER BIT 
CHARACTER 
STOP BIT 


TAKE NEXT CEIL 
NOT START BIT 

NOT ENOUGH CE:‘LLS 

llllB PRESET ASSEMBLY 


TAKE NEXT CELL 


GET STOP BIT 


TNC - TAKE NEXT CELL 

* 

WAITS FOR 1/2 CYCLE OF 1200 HZ OR 
t 1 CYCLE OF 2400 HZ 

^ STRUCTURE ASSURES EXIT AT END OF 

ZERO CELL 


* 

* entry: 

* exit: 

* 

* uses: 


1957 

B6 

10 

02 

TNC 

LDA 

A 

195A 

8D 

02 



BSR 


195C 

24 

OF 



BCC 


195E 

37 



TNCl 

PSH 

B 

195F 

5F 




CLR 

B 

1960 

5C 



TNC2 

INC 

B 

1961 

B1 

10 

02 


CMP 

A 

1964 

27 

FA 



BEQ 


1966 

B6 

10 

02 


LDA 

A 

1969 

Cl 

ID 



CMP 

B 

196B 

33 




PUL 

B 


NONE 

■'C' == CELL UALUE 

<A) NEW CASSETTE DATA 

ArC 

TAPE 

TNCl 

TNC3 WAS ZERO 


TAPE 

TNC2 NO TRANSITION 

TAPE 

#29 



HEATH KEYBOARD MONITOR 
INPUT ROUTINES 


196C 39 TNC3 RTS 


MOVE “ REENTRANT MDUE MEMORY 

* 






entry: 

STACK> 

RETURN (0,0) 




* 



COUNT (2,S) 







TO <4fS) 







FROM (6,B) 





exit: 

STACK CLEANED 




t 

uses: 

ALL 


196D 

30 


MOUE 

TSX 



196E 

EE 

02 


LDX 

2tX 

CHECK COUNT <> 0 

1970 

27 

74 


BEQ 

M0U4 

NO MOVE 

1972 

30 


MOUEA 

TSX 


** ALTERNATE ENTRY 

1973 

A6 

05 


LDA A 

5fX 

(DA) TO 

1975 

E6 

04 


LDA B 

4fX 


1977 

AO 

07 


SUB A 

7fX 

(BA) = TO - FROM 

1979 

E2 

06 


SBC B 

6fX 


197B 

25 

24 


BCS 

M002 

IS MOVE DOWN 

197D 

26 

03 


BNE 

MOOl 


197F 

411 



TST A 



1980 

27 

64 


BEQ 

M0U4 

DISPLACEMENT 0 




* 

HAVE MOVE UP - 

MUST START AT TOP 




* 

TO 

AVOID CONFLICT 

1982 

86 

FF 

HOOl 

LDA A 

f-l 

(BA) =■•= -1 

1984 

16 



TAB 



1985 

36 



PSH A 


DELTA = -1 

1986 

37 



PSH B 



1987 

AB 

03 


ADD A 

3fX 

(BA) = COUNT - 1 

1989 

E9 

02 


ADC B 

2fX 


198B 

36 



PSH A 



198C 

37 



PSH B 



198D 

AB 

05 


ADD A 

5fX 

TO == TO + COUNT - 

198F 

E9 

04 


ADC B 

4fX 


1991 

A7 

05 


STA A 

5fX 


1993 

E7 

04 


STA P 

4fX 


1995 

33 



PUL B 



1996 

32 



PUL A 



1997 

AB 

07 


ADD A 

7f X 

FROM - FROM 

1999 

E9 

06 


ADC B 

6 X 

•J COUNT - 1 

199B 

A7 

07 


STA A 

7.x 


199D 

E7 

06 


STA B 

6.X 


199F 

20 

OE 


BRA 

M0U3 





* 

HAUE 

MOVE DOWN 

- MAY START AT TOP 


19A1 

86 

01 

M0U2 

LDA 

A 

19A3 

5F 



CLR 

B 

19A4 

36 



PSH 

A 

19A5 

37 



PSH 

B 

19A6 

4F 



CLR 

A 

19A7 

AO 

03 


SUB 

A 


Dlil.TA 1 


3fX 


(BA) 


COUNT 


HEATH KEYBOARD MONITOR 
MOVE - MOVE SUBROUTINE 


19A9 E2 02 
19AB A7 03 
19AD E7 02 


19AF 30 M0V3 

19B0 EE 08 

19B2 A6 00 

19B4 30 

19B5 EE 06 

19B7 A7 00 

19B9 30 

19BA A6 01 

19BC E6 00 

19BE AB 09 

I9C0 E9 08 

1.9C2 A7 09 

19C4 E;7 08 

19C6 A6 01 

19C8 E6 00 

19CA AB 07 

19CC E9 06 

19CE A7 07 

19EiO E7 06 

19D2 A6 01 

19D4 E6 00 

19D6 AB 05 

19D8 E9 04 

19DA A7 05 

19DC E7 04 

19riE 26 CF 

19E0 4D 

19E1 26 CC 

19E3 31 

19E4 31 

19E5 30 


SBC 

B 

2fX 

STA 

A 

3fX 

STA 

B 

2fX 

ACTUAL 

MOUE LOOP 

TSX 

LDX 


8fX 

LDA 

TSX 

A 

OfX 

LDX 


6fX 

STA 

TSX 

A 

OfX 

LDA 

A 

IfX 

LDA 

B 

OfX 

ADD 

A 

9f X 

ADC 

B 

8f X 

STA 

A 

9f X 

STA 

B 

8f X 

L DA 

A 

1 f X 

LDA 

B 

OfX 

ADD 

A 

7fX 

ADC 

B 

6f X 

STA 

A 

7f X 

STA 

B 

6 f X 

LDA 

A 

IfX 

LDA 

B 

OfX 

ADD 

A 

5f X 

ADC 

B 

4f X 

STA 

A 

5fX 

STA 

B 

AfX 

BNE 



TST 

A 


BNE 

INS 

INS 

TSX 


M003 


COUNT = - COUNT 

FOLLOWS 


BUMP *FFcrjM)K 


BUMP *T0* 


BUMP ikCOUNT* 


COUNT <> 0 


DISCARD DELTA 


19E6 

EE 

00 

M004 

LDX 

19E8 

31 



INS 

19E9 

31 



INS 

19EA 

31 



INS 

19EB 

31 



INS 

19EC 

31 



INS 

19ED 

31 



INS 

19EE 

31 



INS 

19EF 

31 



INS 

;l.9F0 

6E 

00 


JMP 


OfX 


70 


HEATH KEYBOARD MONITOR 
TABLES 

X;* COMMAND TABLE 


19F-2 

FjA 


CMDTAB FCP 


TAPE RECORD DATA 

19F3 

17 

07 

FDB 

RCRD 


19F5 

53 


FCB 


STEP USER CODE 

19F6 

15 

50 

FDB 

STEP 


19F8 

52 


FCB 

■'R' 

DISPLAY USER REGISTERS 

i9F9 

15 

53 

FDB 

REGS 


19FB 

50 


FCB 

/p/ 

PUNCH TO PAPER TAPE 

19FC 

17 

OA 

FDB 

P7AP 


19FF 

All 


FCB 

' M ^ 

ri ;i; ■ F ' l A Y n F H 01 v t' < B Y T E > 

19FF 

15 

AC 

EBB 

HFM 


lAOl 

4C 


FCB 

L.. ■■ 

UMAD f'ROM IT-Ipf- 

1A02 

16 

A5 

FDB 

LOAD 


1A04 

49 


F{;B 

" I ■ 

n I SPLAT ME MUIV V (INST) 

1A05 

15 

AD 

FDB 

INST 


1A07 

48 


FCB 

" H ■ 

HALTPOINT ItTSFR I 

1A08 

14 

F3 

FDD 

BKPT 


lAOA 

47 


FCD 

G ■ 

GU TO USER CODE 

lAOB 

14 

8F 

FDB 

GO 


lAOD 

45 


FCB 

^E^ 

MULTIPLE STEP 

lAOE 

1 5 

39 

FDB 

EXEC 


lAlO 

44 


FCB 

• D ' 

ni.IMP MEMURY 

:IA11 

17 

09 

FDB 

DUHP 


1A;L3 

43 


FCB 

■■ c ■ 


1A14 

15 

12 

FDB 

CLEAR 

BREAKPOINT Cl. FmR 

1A16 

42 


FCB 


GO TO .BASIC 

1A17 

1C 

03 

FDB 

ica3H 

WAiRM START ENTRY 

1A19 

18 


FCB 

'“40H 

j.iISPLAY INDI-X 

lAlA 

15 

3E 

FDB 

F' El G X 


lAlC 

14 


FCB 

■ T "40H 

HI SPEED TAPE 

lAlD 

16 

FA 

FDB 

CTLf 


lAlF 

13 


FCB 

■<r -40H 

GLIDE MEMORY!! 

1A20 

16 

7B 

FDB 

COPY 


1A22 

10 


FCB 

'P" - ^OE-l 

DISPLAY P.C, 

1A23 

15 

8C 

FDB 

REGP 


1A25 

08 


FCB 

H ■ 4 OH 

HALTPOINT 1. 1ST 

1A26 

15 

FB 

FDB 

D ] iJB 
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HEATH KEYBOARn MONITOR 
TABLES 


1A28 

03 


FCB 

"C" -40H 

DISPLAY 

cmux 

1A29 

15 

92 

FDEt 

REGC 



1A2B 

02 


FCB 

"B'”40H 

DISPLAY 

B ACC* 

1A2C 

15 

91 

FDB 

REGB 



1A2E 

01 


FCB 

VC 

DISPLAY- 

A A(;c< 

1A2F 

15 

90 

FDB 

REGA 



ia:51 

00 


FCB 

"@"-40^1 

EXIT -fo 

OLD MONITOR 

1A32 

FC 

00 

FDB 

UCOO 








* 

MTST “ 

MEMORY DIAGNOSTIC 





* 

DTSPI. 

.AYS LUA IN 'ADDR 

^ flELB ON LEDS 







CURRE;NT TEST 

PATTERN IN 'DATA' 






entry: 

NONE 







EXIT? 

F AILEIi ADDRESS/ 

PATTERN DISPLAYED 







PROCESSUR HALff:):i 






USES t Ai L., TO » T1, DIGADD 


1A34 

OF 



NT ST 

SEI 



1A35 

BD 

49 



BSR 

n or 

FIND TOP OF NFitORY 

1A37 

35 




TXS 


STACK AT TOP 

1A3B 

31 




INS 



1A39 

6F 

00 


MTS2 

CLR 

OfX 


1A3B 

09 




DEX 



1A3C 

26 

FB 



BNE 

MTS2 

C L.. f.” A l< 0 1 _ L L M (.1F' Y 

1A3E 

6F 

00 



CLR 

OfX 


1A40 

9F 

EE 



STS 

f 1 

HOPE THIS IS f>(iOii!! 

1A42 

BE 

00 

EB 


LBS 

♦ TO-1 


1A45 

BD 

FC 

DC 


JSR 

RED IS 

RESET DISPI AYS 

1A48 

CE 

00 

EE 


I..DX 

r\ 1 


1A4B 

C6 

02 



EDA B 

♦ 2 


1 A4D 

BD 

FD 

7B 


JSR 

DISPLAY 

OUTPUT LWA FOliND 

1A50 

4F 




CLR A 



1A51 

5A 




DEC B 



1A52 

BD 

FE 

20 

MT S3 

JSR 

OUTBYT 

OUTPUT PATTERN 

1A55 

36 




PSH A 



1A56 

BD 

FD 

43 


JSR 

BKSP 

BACKSPACE DISPLAYS 

1A59 

32 




PUL A 



1A5A 

DE 

EE 



LDX 

T1 


1A5C 

Ai 

00 


HTS4 

CHf* A 

OfX 


1A5E 

26 

13 



BNE 

MTS6 

FAILURE! 

1A60 

6C 

00 



INC 

OfX 


iA62 

09 




DEX 



1A63 

8C 

00 

FI 


CPX 

■iDICADD + l 

SKIP CONTAMINATED AREA 

1A66 

26 

03 



BNE 

MTS5 


1A68 

CE 

00 

DF 


LDX 

rxo-iz 


1A6B 

8C 

FF 

FF 

MTS5 

CPX 

*-i 


1A6E: 

26 

EC 



BNE 

MTS4 


1A70 

4C 




INC A 



1A71 

20 

DF 



BRA 

MTS3 


1A73 

DF 

EE 


HTS6 

STX 

T1 
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HEATH KEYPOARD MONITOR 
MEMORY niAGNOSTIC 


1A75 


FC 

BC 

JSR 

REBXS 

RESET rUSPLAYS 

1A78 

CE 

00 

EE 

LDX 

#T1 


1A7B 

5C 



INC B 



1A7C 

fctn 

FB 

7B 

JSR 

DISPI..AV 


1A7F 

3E 



WAX 








F7 0P -* 

FIND MEMORY 

TOP 












* 

SEARCUFi 

:s )mm 

FROM 

lOOOH UNTIL FINDS 




* 

GOOD 

MEHORY 















f:ntry: 

NONE 






* 

exit: 

(X) 

LWh 

MEMORY 





uses: 

X 



1A80 

36 


FTOP 

PSH A 




1A81 

CF 

10 00 


Lnx 

ITERH 


TOP OF MEMORYH 

FFFF 




IF 

BEBUG- 

-1 






ENDIF 




1A84 


55 


LDA A 



TEST PATTERN 

1A86 

09 


FTOl 

BEX 




1A87 

A7 

00 


ST A A 

OrX 



1A89 

A1 

00 


CHP A 

Of X 



1A8B 

26 

F9 


bne: 

F 7 01 



1A8D 

32 



PUL A 




1A8E 

39 



RTS 









** 

CCD ~ 

CONSQLL CASSE77E 

JIUMP 






entry: 

NONE 






* 

exit: 

70 LED MUHrrOR 







uses: 

ALLfT0f71y72 


1A8F 

C6 

08 


CCD 

LDA B 

IT3 


1A91 

8D 

42 



BSR 

IN*PIA 

I Nil ALIZL l-'IA 

1A93 

8E 

00 

FB 


LDS 

*T0“1 


1A96 

37 




PSH B 



1A97 

BD 

FC 

86 


JSR 

DUTSTA 


1A9A 

47 

85 



FCB 

47Hf 05l-I FS(jH 

'FR' 

1A9C 

CE 

00 

EE 


LDX 

ir:\ 


1A9F 

C6 

02 



LDA D 

12 

RF-SET DlPiPLAYS 

lAAl 

BD 

FC 

BC 


JSR 

REDIS 

1AA4 

BD 

FD 

25 


JSR 

PROMPT 

PROMPT FWh 

1AA7 

BD 

FC 

86 


JSR 

OUTSTA 


lAAA 

OE 

FD 



FCB 

OEHf7DH+80H 

'Lh ' 

lAAC 

BD 

FC 

BC 


JSR 

REDIS 

RESET DISPLAYS 

lAAF 

CE 

00 

F4 


LDX 

♦ T2 


1AB2 

BD 

FTi 

25 


JSR 

PROMPT 

PROMPT LUE'i 

.1AB5 

33 




PUL B 



1AB6 

BD 

17 

29 


JSR 

PUNCH 

EXIT TO MONITOR 

1AB9 

7E 

FC 

00 

CCDl 

JHP 

$FCOO 



HEATH KEYBOARD MONITOR 
LED MONITOR TAPE PROCETiSORG 






** 

CCL - 

CONSOLE CASSETTE 

LOAD 






ENTRY 

: NONE 







EX 17 J 

TO CONSOLE MONITOR IF GUCESG 







ALL.TO.HIGHEST 

MEMORY 

lABC 

C6 

08 


CCL 

IDA B 

*8 


lABE 

8D 

15 



BSR 

IN*PIA 

INITIALIZE PIA 

lACO 

8D 

Kit: 



BSR 

FTOP 

FIND MEMORY TOP 

1AC2 

35 




JXS 



1AC3 

31 




INB 



1AC4 

BD 

16 

AD 


J8R 

LOAO 

I.OAD MEMORY 

1AC7 

24 

FO 



BCC 

CCDl 

NORMAL RETURN 

1AC9 

BB 

FC 

BC 


JSR 

REDIB 

PRINT ERROR MEiLSAGi: 

lACC 

BD 

FE 

52 


J8R 

OUTSTR 


lACF 

4F 

05 

05 


FCB 

4FHy05Hy05H». 1 D!- 

l»05H+80H 

lAIM 

3E 




WAI 








IN* PIA 

- INITIALIZE 

PIA 

FOR LED MONITOR 





INITIAL 

IZE CASSETTE 

SIDE 

FOR 1. OAD OR DUMP 





AND SET (TERM) SO 

THAT 

A BREAK IS NOT 





SENSED. 















ENTRY J 

NONE 







EX I f f 

NONE 







uses: 

A.X 



1AD5 

L.E 

iO 00 

IN^PIA 

LDX 

♦tf:rh 



IADS 

6F 

01 


CLR 

l.X 



lADA 

6F 

03 


CLR 

3rX 



lADC 

86 

80 


LDA A 

^.lOOOOOOOB 



lADE 

A7 

00 


STA A 

o 

X 


INTO DDR 

lAEO 

43 



CDH A 




lAEl 

A7 

02 


STA A 

2.X 


INITIALIZE CASSIETTIi 

1AE3 

86 

04 


LDA A 

♦ 4 



1AE5 

A7 

03 


STA A 

3.x 



1AE7 

39 



RTS 










L ON 

L 






TTST - 

TERMINAL TESTER 












* 

ENTRY! 

NONE 





)(C 

exit: 

NEVER 

1AF6 

86 

01 


TTST 

LDA A 

♦ 1 

1AF8 

B7 

10 

00 


STA A 

fERM 

lAFB 

C6 

04 



LDA B 

♦ 4 

lAFD 

F7 

10 

01 


STA B 

TERM+C 

IBOO 

BD 

16 

18 

TTSO 

JSR 

OUTIS 

1B03 

OD 

OA 

54 


FCB 

CR.I..F. "7H;CS is a terminal TEST' .0 

IBID 

20 

El 



BRA 

7 TSO 




HE:ATH KEYBDAF^n HGNITOfv' 
TERMINAL TEST 


IBIF END 


STATEMENTS -1632 
FREE BYTES -16823 
NG ERRORS DETECTED 



APPENDIX D 


Excerpts from ‘‘Kilobaud’* 


The following magazine articles have been reproduced with permission from 
Kilobaud. They provide entertaining and educational material that enables you 
to more fully appreciate and enjoy your ETA-3400 microcomputer accessory. 

The programs will not necessarily run as is on your computer accessory, but with 
some modifications you can run the programs. 
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Ron Anderson 
3540 Sturbridge Ct. 
Ann Arbor Mt 48105 


Tiny Basic 


ME THINK A MOMENT..." 
and that is what seems to be 
happening. 

Tve made my Hunt the 
Hurkle game a little more 
interesting for a first-time 
player by including a random 
1 out of 15 chance of seem¬ 
ing confusion on the part of 
the computer. The result is 
that instead of the normal 
THE HURKLE IS HIDING 
message, the printout is as 
shown in Example 3. 


THE HURDLE IS HIKING 

(pause random time) 

NO, THAT’S NOT RIGHT 

(pause random time) 

THE HIDEL IS HURKING. 

(pause random time) 

NOW WAIT A MINUTE! 
THE HURKLE IS HIDING. 

(pause random time) 

Example 3. 


I ssue #1 of Kilobaud con¬ 
tained an article by Tom 
Pittman describing his Tiny 
BASIC. As a very optimistic 
owner of a new KIM-1, and 
with a SWTP CT-1024 TV 
terminal on order, I sent my 
order off to Tom's Itty Bitty 
Computer Company, and 
soon my Tiny BASIC listing 
arrived. Lacking the terminal, 

I spent a Saturday loading 
Tiny by^ hand with the hex 
keyboard and verifying it. 
When the last kit of the TV 
terminal arrived, I loaded 
Tiny. A close reading of the 
instructions indicated that I 


ways to save memory: 

1. PRINT may be abbre¬ 
viated PR in all cases. For 
example: 

50 PR“HI THERE!” 

2. Tiny needs no spaces in 
the program statements. A 
listing is hard to read without 
them, but it is better than 
running out of memory. 

3. Tiny has no absolute value 
function. This can be imple¬ 
mented easily as follows: 

100 IE A <0 A=-A 

4. Tiny has no ON N GOTO 
statement (see Example 1). 


tions extends to more than 
one full page, it is lost before 
it can be read. This would 
also be a problem with a 
scrolling display, particularly 
if the TVT is running at 1200 
baud. The program can con¬ 
tain a "pause for read" which 
can be implemented easily at 


Here the program resumes 
its regular course. 

Last but not least. Tiny 
BASIC lacks any kind of 
string manipulation. It is 
possible to get around this by 
using Y and N for Yes and No 
responses as shown in Exam¬ 
ple 4. 


150 ON N GOTO (100,110,120,130) 
Example 1, 


50PR“WANT TO PLAY AGAIN”; 

60 Y=1 
70 N=0 
80 INPUT R 

85 REMARK R FOR RESPONSE 
90 IF R = 1 GOTO 10 

100 PR“THANKS FOR PLAYING. HOPE YOU ENJOYED IT” 
999 END 


Example 4. 


had to insert some I/O jump 
addresses. This done, Tiny 
ran with nothing more than 
operator problems. 

It was not hard to begin 
programming some of the 
simpler games from Basic 
Computer Games published 
by Digital Equipment Corp. 

As limited as it is, using 
only 2y2K of memory (I had 
added an Econoram 4K 
expansion to my KIM), a 
great deal can be done with it 
that is not obvious on first 
glance. 

At the bargain price of $5 
I didn't expect a full course 
in BASIC programming. But 
there are some features that 
are not obvious and could be 
expanded upon for those of 
us who are rank beginners. 

First, here are a couple of 


The following allows the 
same results: 

60 GOTO 100+10*N 
This is particularly useful 
in implementing a game like 
Bombers {see Basic Computer 
Games), Here the player is 
given a multiple choice, and 
the number he enters (N) 
determines a branch in the 
program. 

My TV typewriter is the 
kind that "pages"; when the 


screen fills, it "flips" a page 
and starts to fill it from the 
top. If output such as instruc- 


the desired point. 

100 T=0 
105 T=T+1 

110 IF T <150 GOTO 105 

The T less-than number may 
be adjusted for a suitable 
time delay. These steps may 
be a subroutine, and T may 
be randomized by Example 2. 


The delay loop is used to 
add interest to a game, where 
the computer outputs "LET 


A little ingenuity allows 
many tricks in Tiny BASIC. 
Use a little imagination, and 
it can be great fun. 

I started out In this hobby 
with full Intentions never to 
waste time playing games 
with my computer. Obviously 
I've changed my mind. The 
reason is that programming 
games seems to be a very 
good way to learn all the 
tricks and non-tricks of pro¬ 
gramming in BASIC. I still 
intend to do a lot of machine 
language programming, but I 
can't imagine a way to learn 
BASIC faster than by using it 
to program a game. Thanks, 
Tom Pittman, for Tiny 
BASIC. It really works. ■ 


110 IF T < (RND(150)+10) GOTO 105 
115 RETURN 


Example 2. 


Kilobaud, December 1977 
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Tiny Basic 

••• a mini-language 

for your micro 


Along with pointing out the 
differences between Tiny 
BASIC and standard BASIC, 
Tom offers here some com¬ 
ments and opinions on 
BASIC and structured pro¬ 
gramming. Interestingly, his 
manuscript is one of the few 
we've received which was pre¬ 
pared using a text editor (a 
Model 37 TTY driven by a 
COSMAC 1802 microproces¬ 
sor). It would seem that more 
of us (including myself) 
should be at this stage by 
now. - John. 


Tom Pittman 
PO Box 23189 
San Jose CA 95153 


I f you have an Altair or 
1MSAI computer or any 
8080'based system, you have 
your choice of several ver¬ 
sions of BASIC. There are 
rumors of BASIC for 6800 
and 6502 within the next few 
months. But these require 
memory — probably more 
than you have with your low 
budget machine. 

The alternative is Tiny 
BASIC. The language is a 
stripped down version of 
regular BASIC, with integer 
variables only — no strings, no 
arrays, and a limited set of 
statement types. It was first 
proposed by Bob Albrecht, 
the ''dragon” of Peoples 
Computer Company (PCC) in 
Menlo Park, as a language for 
teaching programming to 
children. The PCC newspaper 
ran a series of articles (largely 
written by Dennis Allison) 
entitled "Build Your Own 
BASIC," suggesting how Tiny 
BASIC might be implemented 
in a microprocessor. The 
important portions of these 
articles have been reprinted in 
Dr. Dobb's Journal of Com¬ 
puter Calisthenics and Ortho¬ 
dontia, published by PCC and 
available in most computer 
stores. 


BASIC 

Before we get into Tiny 
BASIC, let us look at high 
level languages in general and 
BASIC in particular. 

When you program in ma¬ 
chine language, each com¬ 
mand, or statement, repre¬ 
sents one operation from the 
machine's point of view. 
When we think of a single 
concept like, "A is the sum of 
B and C," a machine language 
program to perform this oper¬ 
ation may take several opera¬ 
tions, such as: 

LDA B 
LDA C 
STO A 

A high level language, on 
the other hand, lets you put a 
single human idea into a 
single program statement, for 
instance: 

]i-:r A ■■ B ^ c 

BASIC is one of a class of 
"algebraic" languages in that 
it permits the representation 
of algebraic formulae as part 


of the language. Other lan¬ 
guages in this class are 
FORTRAN and ALGOL. 
COBOL does not generally 
fall in this class (except for 
the "super" versions). 

Of critical importance to 
all algebraic languages is the 
concept of an expression. An 
expression is the program¬ 
ming language notation for 
what we might think of as 
"the right-hand side of a for¬ 
mula," Alternatively, we can 
think of an expression as "a 
way of expressing the value 
of some number which the 
computer is to compute." 

An expression may consist 
of a single number, a single 
variable name (all variables 
are referred to by name in 
high level languages), a single 
function call (discussed in 
detail later), or some combin¬ 
ation of these, separated by 
operators and possibly 
grouped by parentheses. For 
this discussion, when we refer 


to an operator, we mean one 
of the four functions found 
on a cheap pocket calculator: 
addition symbolized by " + 
subtraction by " - multipli¬ 
cation by " * " (we do not 
use "X" because that would 
be confused with the name of 
the variable "X"); and 
division by " / ". (The usual 
symbol for division does not 
appear on most typewriter 
and computer keyboards.) 
Thus, a^b 

C-D 

becomes, in computerese, 

(A - 15) / (C - D) 

Here the parentheses are used 
to indicate priority of opera¬ 
tions. Normally multiplica¬ 
tion and division are per¬ 
formed first, then addition 
and subtraction. Without the 
parentheses the expression, 

.. A-B 

C-D 

would be understood by the 
high level language as, 
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which is not the same at all. 

In BASIC, when an expres¬ 
sion is encountered, it is 
evaluated. That is, the values 
of the variables are fetched, 
the numbers are converted (if 
necessary), the functions are 
called, and the operations are 
performed. The evaluation of 
an expression always results 
in a number which is defined 
to be the value of that expres¬ 
sion. 

The first example which 
we discussed showed a simple 
BASIC statement, 

l.KT A Ku: 

This is called an assignment 
statement, because it assigns 
the value of the expression 
"'B + C" to the variable A. All 
algebraic high level languages 
have some form of assign¬ 
ment statement. They are 
characterized by the fact that 
when the computer processes 
an assignment statement, a 
single named variable is given 
a new value. The new value 
may not necessarily be 


different from the old; for 
example: 

LKT A-A 

This is also a valid assignment 
statement, even though 
nothing changes. Assignment 
statements are also used to 
put initial values into var¬ 
iables, for instance: 

Control Structures 

One of the important char- 
acteristics distinguishing 
different high level languages 
is the control structure 
afforded to the programmer. 
The control structure is deter¬ 
mined by the various per¬ 
mitted control statements, 
which alter the flow of pro¬ 
gram execution. Normally 
program execution advances 
from statement to statement 
in sequence, although there 
are however, circumstances in 
which this sequence is 
altered. The most common 
control structure allows one 
set of operations to be per¬ 


formed if a certain condition 
is true, and another, if it is 
false. In “structured program¬ 
ming'" this is referred to as 
the “IF . . . THEN . . . ELSE" 
construct; its general form is 
"IF condition is true, THEN 
do something, ELSE do some 
other thing." The full gener¬ 
ality of this control structure 
is not directly available in 
BASIC, but, as we shall see, 
this is only a minor incon¬ 
venience. 

Standard BASIC uses the 
IF ... THEN construct, and 
makes it work something like 
a conditional GOTO: 

iF A> i THEN 

If the value of the variable A 
is greater than three, then 
(GOTO) line 120, otherwise 
continue with the next state¬ 
ment in sequence. Actually, 
the condition to be tested 
consists of a comparison 
between two expressions, 
using any of the comparison 
operators which are given in 
Fig. 1. 


In each case, if the compar¬ 
ison of the two expressions 
evaluates as true, the implied 
GOTO is taken; otherwise the 
next statement in sequence is 
executed. In Tiny BASIC the 
syntax is slightly different. 
Instead of a statement num¬ 
ber, a whole statement 
follows the THEN part of the 
IF . . . THEN. The compar¬ 
ison above, in Tiny BASIC, 
would be: 

IF A>3 THEN GOTO 120 

But we could also validly 
write: 

IF A<-3 THEN LET A=A+10 

or some such. Note that this 
is not valid in standard 
BASIC. 

The GOTO construct has 
been the subject of contro¬ 
versy in the last few years. A 
strong case has been made for 
"GOTO-less programming" 
which uses only certain other 
control structures to achieve 
structured programs which 
are more readable and less 


= Equality (the comparison is true 

if the two expressions are equal) 

> Greater than 

< Less than 

< = Lessor Equal (not Greater) 

> - Greater or Equal 

< > Not Equal 

Fig, 1. Comparison Operators. 


prone to errors. I believe that 
both good and incomprehen¬ 
sible programs are possible 
regardless of the control 
structures used or not used, 
but I seem to be in a minority 
at this time. Suffice to say 
that BASIC is not conducive 
to structured programming in 
the technical sense of the 
term. 

Standard BASIC has one 
control structure which has 
been omitted from Tiny 
BASIC. This is the FOR . . . 
NEXT loop. Normally, if a 
program requires some se¬ 
quence to be performed 
thirteen times, the following 
program steps might be used: 

10 FOR 1-1 TO 13 

20 . . . 

30 NEXT I 

Statement 20 would be exe¬ 
cuted 13 times, with the 
variable I containing succes¬ 
sively the values, 1, 2, 3 . . . 
12, 13. In Tiny BASIC the 
same operation is a little 
more verbose: 


10 NET 1-1 
20 . . . 

30 LET I-l-l 

40 IF I<-13 THEN GOTO 20 

but, as you can see, nothing is 
lost in program capability. 


Data Structures 

Standard BASIC also has 
some data structures which 
have not been carried over 
into Tiny BASIC. The only 
data structure In Tiny BASIC 
is the integer number, which 
is further Mmited to 16 binary 
bits for a value in the range of 
-32768 to +32767. Compare 
this precision with the six 


digit precision in standard 
BASIC, which also gives you 
fractional numbers (some¬ 
times called ''floating 
point''). Regular BASIC 
allows arrays, or variables 
with multiple values distin¬ 
guished by "subscripts," and 
strings, which are variables 
with text information for 
values instead of numbers. We 
will see presently how these 
deficiencies in Tiny BASIC 
can be overcome. 

Input/Output 

Thus far we have said 
nothing about input and out¬ 
put, how to see the answers 
the computer has calculated, 
or how to put in starting 
values. These needs are 
accommodated in BASIC by 
the PRINT and INPUT state¬ 
ments. Numbers are printed 
(in decimal, for us humans to 
read) at the user terminal by 
the PRINT statement: 

PRINT A, B 3- C 

This prints two numbers; the 
first is the value of the var¬ 
iable A, and the second is the 
value of the expression B+C. 
In general, the PRINT state¬ 
ment evaluates and prints 
expressions. It is perfectly 
valid to write 

PRINT 1, 123, 0-0 

although we know in advance 
what will be displayed on the 
terminal. To make our output 
more readable, BASIC per¬ 
mits the program to printout 
text labels on the data. 

PRINT ''THE SUM OF 1 + 2 IS", 3 + 2 

will display the line: 

THE SUM OF 1 + 2 IS 5 

To feed new numbers 
from the terminal to the pro¬ 


gram the INPUT statement is 
used. 

INPUT A, B, C 

will request three numbers 
from the input keyboard- The 
more popular versions of 
Tiny BASIC have an extra 
capability here beyond stan¬ 
dard BASIC, in that the oper¬ 
ator can type in numbersaA?£/ 
whole expressions. Thus, if in 
response to the INPUT re¬ 
quest above, the operator 
types 

1+2, 3*(4+5), R-A 

the variable A will receive the 
value 3, B will receive the 
value 27, and C will receive 
the value 24 = 27-3. There¬ 
fore, a program in Tiny 
BASIC, which permits no 
text strings, can display and 
accept as input limited text 
information: 

10 LET T=1 
20 LET N=0 

30 PRINT "PLEASE ANSWER Y DR N"; 
40 INPUT A 

30 IF A=Y THEN GOTO 100 
60 IF A=N THEN GOTO 120 
70 GOTO 30 

This little program asks for an 
answer, which should be 
either the letter "Y" or the 
letter "N" (or their equiva¬ 
lents, the numbers 1 or 0, 
respectively). If the operator 
types anything else, the re¬ 
quest is repeated. Obviously, 
this technique will not work 
for something like a person's 
name where any letters of the 
alphabet in any sequence 
must be expected, but it is 
certainly an improvement 
over no alphabetic input at 
all. 

A generalized text output 
capability in Tiny BASIC 
depends on another charac¬ 
teristic peculiar to Tiny 
BASIC and not shared by 
standard. That is the fact that 
the line number in a GOTO 
or GOSUB statement is not 
limited to numbers only, but 
may itself be any valid ex¬ 
pression which evaluates to a 
line number. The program 
which is shown in Fig. 2 
prints A, B, or C, depending 
on whether the variable N has 
the value 1, 2, or 3. Note 
that, if N is out of range, 
nothing is printed. 

The USR Function 

What about the fact that 


there are no arrays? Let us 
turn to the USR function for 
a way to store and retrieve 
blocks of data. The remarks 
which follow apply only to 
my version of Tiny BASIC 
and are unique in that 
respect. 

The USR function is in¬ 
voked with one, two, or three 
arguments (expressions 
separated by commas within 
the parentheses). The first (or 
only) argument is evaluated 
to the binary address of a 
machine language subroutine 
somewhere in the computer 
memory. The USR function 
does a machine language sub¬ 
routine call (JSR instruction) 
to that address. The user is 
obliged to be sure that there 
is in fact a subroutine at that 
address. If there is not, Tiny 
BASIC (and thus your com¬ 
puter) will execute whatever 
is there. The second and third 
arguments, if present, will be 
loaded into the CPU registers 
before jumping to this sub¬ 
routine. On exit, any answer 
the subroutine produces may 
be left in the CPU accumula¬ 
tor, and it becomes the value 
of the function. Two machine 
language routines are already 
provided with the BASIC 
Interpreter; if S is the address 
of the beginning of the inter¬ 
preter, 

USR(S + 20, M) 

has as its value the byte 
stored in memory at the 
address in the variable IVI 
(that is, the contents of the 
second argument is evaluated 
to a memory address). Also, 

USRCS + 24, M, B) 

Stores the low order 8 bits of 
the value of B into the 
memory location addressed 
by !V1. The return value of this 
function is meaningless. 

Consider the standard 
BASIC program in Fig. 3(a) 
to input ten numbers and 
print the largest as compared 
to the Tiny BASIC program 
in Fig. 3(b). 

I have used this example 
for two reasons: First, it 
shows how the USR function 
may be used to simulate the 
operation of arrays. Second, 
it is typical of many of the 
applications commonly ad- 
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LO 

IF N>0 THEN IF N<4 THEN GOSUB 20+(N ' 

10) 

20 

RETURN 


30 

PRINT "A" 


35 

RETURN 


40 

PRINT "B” 


45 

RETURN 


50 

PRINT ”C" 


55 

RETURN 



to argue for arrays; however, 
neither real nor simulated 
arrays are required for this 
program! Here is the same 
program, with no arrays: 


10 

LET I-l 

20 

LET T. = 0 

30 

INPUT V 

40 

IF L<V THEN LET L=V 

50 

LET I-IHl 

60 

IF T<-10 THEN GOTO 30 

90 

PRINT I. 


Summary 

Tiny BASIC is not a super 
language. But, it also does not 
require a super computer to 
run. I've given here only a 
cursory examination of the 
power of Tiny BASIC. A full 
description of Tiny BASIC 
may be found in the I tty 


Bitty Computers Tiny BASIC 
User's Manual. This comes 
with a hex paper tape of the 
program and is available for 
$5 from: I tty Bitty Com¬ 
puters, PO Box 23189, San 
Jose CA95153. 

There are different ver¬ 
sions for each of the follow¬ 
ing systems, so be sure to 
specify which system you are 
running: 

M6800 with MIKBUG, 
EXBUG, or home brew (Exe¬ 
cutes in 0100-08FF); AMI 
Proto board (Executes in 
E000-E7FF); SPHERE 
(Executes in 0200-09FF); 
6502 with KIM, TIM or 
homebrew (Executes in 


Fig. 3. Programs to input ten numbers and print the largest 
(a) Standard BASIC; (b) Tiny BASIC. 


Fig. 2. Program to Print A, 

B, or C, depending on the 
value of N. 

0200-0AFF); JOLT (Exe¬ 
cutes in lOOaiSFF); APPLE 
(Executes in 0300-0BFF); 
KIM-2 4K RAM (executes in 
2000-28FF). 

Although few people have 
paper tape systems, we are 
unable to provide the pro¬ 
gram on audio cassette. But if 
you request it, we will supply 
a hexadecimal listing of the 
program instead of tape 
which you can key in and 
then can save on cassette for 
future use. 

If you have a small 8080 
system, there are several 
widely differing versions of 
Tiny BASIC in the public 


domain. Most of them have 
been published in Dr. Dobb's 
Journal, which is $10 per 
year from: People's Com¬ 
puter Company, PO Box 310, 
Menlo Park CA 94025. This 
journal has also published a 
number of games which run 
in Tiny BASIC. 

One final comment. Tiny 
BASIC was originally con¬ 
ceived as "free software" by 
the people at PCC. The 6800 
and 6502 versions described 
in this article are not free; 
they are proprietary and 
copyrighted. Software is my 
only source of income, and, if 
I cannot make it from pro¬ 
grams like Tiny BASIC, I 
won't write them. Please 
respect the labor of those of 
us who are trying to make 
quality software available to 
you: pay for the programs 
you use. ■ 





LO 

LET I-l 

LO 

FOR 1=1 TO 

iO 

20 

INPUT V 

20 

INPUT V(l) 


23 

LET V=USR(S=24.I,V) 

30 

NEXT 1 


30 

LET I = I-P1 

40 

LET L=VC1) 


33 

IF I<=10 THEN GOTO 20 

50 

FOR 1=2 TO 

10 

40 

LET L=USR (S+20, i) 

60 

IF L>=V(I) 

THEN 80 

50 

LET 1=2 

/O 

LET L=V{I) 


60 

IF L<USR(S+20.I) THEN LET L=USR(S+20,I) 

80 

NEXT I 


80 

LET 1 = 11-1 

90 

PRINT L 


90 

PRINT L 




Tiny BASIC Shortcuts 


Tom Pittman’s Tiny BASICS (6502,1802, etc.) are somewhat limited 
in capabilities. This is the first of several articles discussing 
methods to expand those capabilities. 


Charles R. Carpenter 
2228 Montclair Place 
Carrollton TX 75006 


W riting small but useful 
programs in Tiny BASIC 
(to paraphrase Tom Pittman) is 
a practical reality. Getting the 
most out of your programs is 
easier if you work with the inter¬ 


preter’s limitations. The utility 
program in Fig. 1 shows how to 
work with some of these lim¬ 
itations. This program is titled 
“Loans,” but it could be any 
comparison of WHAT-IF alter¬ 
natives. Here’s what we’ll be 
working with (and without): 

• Decimal numbers not al¬ 
lowed. 

• Number range limited from 
-32768 to +32767. 


• 72 characters maximum on 
Input lines. 

• Implied statements and ab¬ 
breviations to save bytes of 
memory. 

(Note: Tom Pittman now has an 
experimenter’s manual avail¬ 
able that explains many of 
these features and how to work 
with them. They are not as sim¬ 
ple as my approach. The 
manual is available from Itty 


Bitty Computers, PO Box 
23189, San Jose CA 95153.) 

These are not significant 
handicaps if you’re estimating 
the effect of several alter¬ 
natives. Round numbers are 
usually acceptable if you only 
want to get on base in some 
specific ball park (cliches are 
fun once in a while). 

Byte-saving Tips 

Saving bytes of memory is a 
practical approach if your com¬ 
puter has limited memory (I 
have 1250 bytes of free space 
now). Let's talk about the 
memory-saving part first. 

Fig. 1 is an example of a pro¬ 
gram with no statement short¬ 
cuts; Fig. 2 uses all the implied 
and abbreviated statements 
possible in this Tiny BASIC in¬ 
terpreter. Memory in Fig. 1 is 
492 bytes, an average of 17 
bytes per line, while Fig. 2 uses 
410 bytes for an average of 14 
bytes per line. REM comments 
were added later and used 470 
bytes. 

Using implied statements 
causes the program to run 





220 

LET A = A-r 1 

:LIST 


230 

PRINT 

10 

REM 

TINY BASIC FOR KIM-1 

240 

PRINT"LOAN NUMBER ”;A;" 

11 

REM 

6502 V.IK BY T. PITTMAN. 

250 

PRINT"INTEREST IS $";l 

12 

REM 


260 

PRINT 

13 

REM 

PROGRAMMED BY: 

270 

PRINT"MONEY OWED IS $";0 

14 

REM 

C.R. (CHUCK) CARPENTER W5USJ 

280 

PRINT 

15 

REM 

2228 MONTCLAIR PL. 

290 

PRINT"PAYMENTS ARE $";M 

16 

REM 

CARROLLTON TX 75006 

300 

PRINT 

17 

REM 


310 

LET N - N - 1 

18 

REM 

THESE PROGRAMS ILLUSTRATE BYTE SAVING 

320 

IF NX) THEN GOTO 170 

19 

REM 

TECHNIQUES IN LIMITED MEMORY SYSTEMS. 

360 

PRINT 

20 

REM 

THE FIRST PROGRAM USED 492 BYTES. THE 

370 

PRINT"DONE" 

21 

REM 

OTHER USED 410 BYTES. AN INCREASE 

380 

PRINT 

22 

REM 

(OR SAVING) OF 82 BYTES. IMPLIED 

390 

END 

23 

REM 

STATEMENTS AND ABBREVIATIONS ARE 



24 

REM 

THE REASON. 



25 

PR 




26 

PR 




100 

PRlNT"LOANS : HOW MANY 

;1 =0 


no 

INPUT N 

:1 I- 

1 + 2 

115 

PRINT 

:2 GOSUB 1 

120 

LET A = 0 

:RUN 

130 

PRINT‘TNPUT: PRINCIPAL IN HUNDREDS (P)” 



140 

PRINT" RATE IN PERCENT (R)" 

1226 AT 1 

150 

PRINT" TIME IN YEARS (T)" 

:END 


160 PRINT" PAYMENTS IN MONTHS (X)” 

170 INPUT P,R,T,X :PR1NT"THERE ARE BYTES LEFT" 

190 LET I - P*T*R THERE ARE 288 BYTES LEFT 

200 LETO=100*P + I 
210 LETM=0/X 

Fig. 1. First program version using no shortcuts to write the program or save bytes. This program uses 492 bytes, exclusive of the REM 
statements. REM statements use 470 bytes. The short routine above illustrates how Tiny BASIC finds the number of bytes of free 
space remaining. The user’s manual tells how to do it. 
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slower, but the increase in pro¬ 
gram lines is worth the loss of 
speed (if speed is your concern 
then Tiny BASIC may not be for 
you, anyway). Memory saving 
wasn’t really necessary for this 
short program: but in a 100-line 
program over 200 bytes could 
be saved (12 to 15 lines’ worth). 
Such significant savings allow 
you to write longer programs. 
The programs are still small, 
but even a few more lines make 
them more useful. And that’s 
what we’re trying to do. Bytes 
could be saved in a few more 
places, such as the spaces in 
the print input, tines 130 
through 160, but in the interest 
of clarity, 1 left them alone. 

Decimal Values 

Calculations involving 
decimal numbers can be han¬ 
dled several ways. Anytime a 
percentage or a calculation 
resulting in a fraction occurs, a 
decimal number results. 
Dollars and cents are decimal 
numbers, too. Tiny BASIC trun¬ 
cates decimal numbers down 
to the next lower whole num¬ 
ber. If the number is less than 
one, the result is zero. (For this 


reason, accountants would 
probably not want to use Tiny 
BASIC.) 

Lines 130through ISOarethe 
input lines for this program. I 
used principal in hundreds and 
rate in percent to avoid decimal 
percentage entry and to pre¬ 
vent dividing percent by 100 (to 
get back to a decimal percent¬ 
age). The math comes out right 
when it’s printed out in line 250. 

I then multiplied the total loan 
value by 100 in line 200 to make 
the right amount print in lines 
270 and 290. 

Principal input in hundreds 
also helps avoid the number- 
limitation problem. Keeping the 
numbers to be operated on 
small limits precision but 
keeps the multiplication re¬ 
sults in range. Adding a state¬ 
ment in a print line to multiply 
(or divide, etc.) by some factor 
will put the answer back in the 
right magnitude. This is sort of 
like using engineering notation 
with a slide rule. The difference 
is the lack of decimal numbers. 

An input-line limitation of 72 
characters restricts the 
amount of data you can input. 
Two character spaces are used 


iLlST 

100 PR“LOANS : HOW MANY 
no INPUTN 
115 PR 
120 A-0 

130 PR“INPUT: PRINCIPAL IN HUNDREDS (P)” 

!40 PR“ RATE IN PERCENT (R)” 

150 PR“ TIME IN YEARS (T)” 

160 PR“ PAYMENTS IN MONTHS (X)” 

165 PR 

170 INPUT P,R,T,X 
190 I = P*T*R 
200 0-100*P + I 
210 M=0/X 
220 A = A + 1 
230 PR 

240 PR“LOAN NUMBER - ”;A;“” 

250 PR“1NTEREST IS $”;1 
260 PR 

270 PR“MONEY OWED IS $”;0 
280 PR 

290 PR“PAYMENTS ARE $”;M 

300 PR 

310 N-N-1 

320 IF N>0 GOTO 170 

360 PR 

370 PR“DONE” 

380 PR 
390 END 

Fig. 2. Second program version using implied statements and 
abbreviations to save bytes. This version uses 410 bytes. 


by the prompting question 
mark and following space. This 
reduces actual data input to 70 
characters, including the re¬ 
quired commas between the 
data entries With the loan 
amount in hundreds, I was able 
to input values for six loans in¬ 
stead of five. To overcome the 
limited data-input situation, 
write programs that will per¬ 
form calculations, hold the 
results and return for more 


data. I’ve done this on some 
data-processing routines with 
good results. 

There’s another way to ac¬ 
commodate more data than the 
line will hold. Simply input as 
many loan numbers (or WHAT- 
IFs) as needed in tine 100. When 
the program has used the data 
entered, it will ask for more un¬ 
til the number of N entries is 
reached in line 320. Question 
marks will show up each time 


LOANS : HOW MANY - 
?6 

INPUT; PRINCIPAL IN HUNDREDS (P) 

RATE IN PERCENT (R) 

TIME IN YEARS (T) 

PAYMENTS IN MONTHS (X) 

740,10,3,36,40,12,4,48,40,18,5,60,50,10,3,36,50,1 
2,4,48,50,18,5,60 

LOAN NUMBER - 1 
INTEREST IS $1200 

MONEY OWED IS $5200 

PAYMENTS ARE $144 

LOAN NUMBER - 2 
INTEREST IS $1920 

MONEY OWED IS $5920 

PAYMENTS ARE $123 

LOAN NUMBER - 3 
INTEREST IS $3600 

MONEY OWED IS $7600 

PAYMENTS ARE $126 

LOAN NUMBER - 4 
INTEREST IS $1500 

MONEY OWED IS $6500 

PAYMENTS ARE $180 

LOAN NUMBER - 5 
INTEREST IS $2400 

MONEY OWED IS $7400 

PAYMENTS ARE $154 

LOAN NUMBER - 6 
INTEREST IS $4500 

MONEY OWED IS $9500 

PAYMENTS ARE $158 

DONE 

Fig. 3. Sample run. Simple interest calculations of two different 
loan values at three rates. 
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From Fig. 3 


From Fig. 5 


Simple Int 


Compound Int 


lnterest% Years Amount Equlvlnt% Years Amount 


1. 10 3 $5200.00 

2. 12 4 5920.00 

3. 18 5 7600.00 


11 

3 

$5320.00 

15 

4 

6400.00 

26 

5 

9200.00 


Mult Actual Loan Value Difference 


1. 1.331 

2. 1.574 

3. 2.288 


$5324.00 

$6296.00 

$9152.00 


+ $ 4.00 
- 104.00 
+ 48.00 


Fig. 4. For a loan of $4000. 


line 170 runs out of data and 
line 320 is still greater than 
zero. 

This program only calculates 
simple interest loans. Com¬ 
pound-interest calculations re¬ 
quire decimal numbers and 
raising numbers to some 
power. The multiplier for com¬ 
pounding over n periods is 
(1 l)*^, where I is the interest 

expressed as a decimal and n is 
the number of years (or 
periods). 

You can use this multiplier to 
calculate the approximate 
equivalent while percentage 
over the term of the loan. Your 
calculated answer will result in 
a much more realistic loan 
evaluation. I made some of 
these calculations, and Fig. 4 
has some examples. 

In the program itself, there 
are no unusual or unique pro¬ 
gramming techniques. There 
are two counting loops—one 
starting at line 110 and the 
other at line 120. Whatever 


value is input for N is 
decremented in line 310 until 
the data sets, input in line 170, 
are used up. The counter that 
starts in line 120 numbers the 
printed output each time a pass 
through the program is com¬ 
pleted. 

I tried to use N to do both, but 
could not without using more 
program lines. Otherwise, this 
is simply a fundamental pro¬ 
gram with input between lines 
100 and 170, calculations be¬ 
tween lines 190 and 220 and out¬ 
put between lines 240 and 290. 

Summary 

It is easy to save bytes of 
memory if you remember to use 
implied statements and state¬ 
ment abbreviations. The user’s 
manual for Tiny BASIC shows 
what is, and is not, allowed. 
Both the decimal number and 
number range limitation can be 
handled by using software 
math techniques (multipliers, 
dividers, engineering notation, 


LOANS: HOW MANY - 
?3 

INPUT: PRINCIPAL IN HUNDREDS (P) 

RATE IN PERCENT (R) 

TIME IN YEARS (T) 

PAYMENTS IN MONTHS (X) 

?40,11,3,36,40,15,4,48,40,26,5,60 

LOAN NUMBER - 1 
INTEREST IS $1320 

MONEY OWED IS $5320 

PAYMENTS ARE S147 

LOAN NUMBER 2 
INTEREST IS $2400 

MONEY OWED IS $6400 

PAYMENTS ARE $133 

LOAN NUMBER - 3 
INTEREST IS $5200 

MONEY OWED IS $9200 

PAYMENTS ARE $153 

DONE 

Fig. 5. Loan value two, rerun to show the effect of compound in¬ 
terest on the total loan value. Compare the results with the sim¬ 
ple interest calculation. 


etc.). Line input characters 
limited to 70 (72 with prompting 
question mark and space) can 
also be handled by pro¬ 
gramming techniques. 

Remember, if you input more 
than a total of 72 characters in 
a single line, the program will 
stop. Nothing more will happen 


until you reset your system. If 
you have to reset and want to 
save the program already in 
memory, then reenter the inter¬ 
preter at the soft entry point. 
The Tiny BASIC user’s manual 
explains how to do this, too. A 
program does not have to be 
big to be useful.* 
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Charles R. Carpenter 
2228 Montclair Place 
Carrollton TX 75006 


Not So Tiny 


Perhaps after running this series we won’t be calling /'f Tiny anymore! 



KIM-1 and KIM-2 in redwood enclosure, ACT-1 TVT, Telpar Printer, Computerist power supply, Radio 
Shack recorders. 


:1 1ST 

10 REM ORIGINAL VERSION 
1 1 REM 

100 LOR Y = 1 TO 10 
1 10 LET C-0 
120 FOR X - 1 TO 50 
130 LET F- INT(2*RND(1)) 

140 IF F= 1 THEN 180 
150 PRINT “T”; 

160 GOTO 200 

170 REM C COUNTS NO OF HEADS 
180 LET C-C+ 1 
190 PRINT “H”; 

200 NEXT X 
210 PRINT 

220 PRINT “HEADS OUT OF 50 FLIPS” 

230 NEXT Y 
240 END 


Listing 1. 


P rograms written in Tiny 
BASIC and other small in¬ 
terpreters can be useful and 
fun. First, some changes in pro- 
gramming techniques and 
philosophy are needed, though, 
because there are fewer 
statements and commands in 
small interpreters. 

One basic and very useful 
programming tool is the loop. 
Several articles have been writ¬ 
ten about the power and use of 
loops properly written and ex¬ 
ecuted in a program. Usually in 
larger BASICS, these loops are 
written with FOR-NEXT 
statements. In Tiny BASIC, the 
equivalent statements are LET, 
IF . . .THEN GOTO. 

To illustrate the conversion 


of FOR-NEXT statements to 
LET, IF . . . THEN GOTO 
statements, I have used the 
program in Listing 1. This is a 
coin-flipping routine with one 
counting loop inside another. 
The outside loop resides be¬ 
tween lines 100 and 230; the in¬ 
side loop is between lines 120 
and 230. Lines 10 and 11 are my 
comment and are not part of 
the original program. It is not 
possible to run this program on 
my system because the Tiny 
BASIC interpreter would not 
recognize line 100 and would 
stop. 

Listing 2 is my version rewrit¬ 
ten in Tiny BASIC. I have added 
a couple of features, such as 
the INPUT N line, which lets 
you select N sets of 50 flips. 
Also, I like to see DONE (or 
something) at the end of a pro¬ 
gram. This way I know the pro¬ 
gram didn’t quit inthemiddle(if 
the algorithm was right, any¬ 
way). Otherwise, Tiny BASIC 
used two more program lines 
than the larger BASIC version. 

In my program, the two main 
loops comparable to the sam¬ 
ple program are started with r 
LET statement. The outside 
loop is between lines 110 and 
250 and controls the number of 
passes of 50 flips set in line 
100. The inside loop is between 
lines 130 and 210 and controls 
the number of flips set in line 
210. As I stated there are two 
additional lines—the counters 
for the two loops. The loop 
.counter in line 200 increments 
by one on each pass through 
the program until it reaches the 
values in line 210. Incrementing 
the I loop (in line 240) by one oc¬ 
curs until the value in line 250 is 
reached. In this case, I is com¬ 
pared to N, the value input in 
line 100. The value of N lets the 
user select how many sets of 50 
flips are to be run by the pro¬ 
gram before it ends. 

Coin flipping, counting and 
printing are handled in tines 
140 to 190. Line 140 randomizes 
the number 2 (1 is added so 
there are no zeros). If the ran¬ 
dom number is 1, it becomes <' 
“head” and passes to the head 
counter in line 180. The head 
counter increments by one and 
prints an H, then increments 
the X loop by one. If X is less 
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than the limiting value {50), the 
program returns to the flip 
routine at line 140 and starts 
through again. 

If F does not equal 1 in line 
150, the value becomes a “tail,’' 
a T is printed, X is incremented 
(by jumping to line 200) and 
compared to the limiting value. 
This time,” if 50 flips have oc¬ 
curred, the program falls 
through to the print statement 
in line 230. Heads (C) counted in 
line 180 are printed out and the 
program tests the relationships 
in lines 240 and 250. When I > 
N, the program prints DONE 
and ends. 

Tiny BASIC, even though 
small in size, has power enough 
to produce significant pro¬ 
grams. Applications are limited 
only by your imagination and 
user space in your computer’s 
memory. In addition to some 
tricks using implied statements 
and commands to save 
memory, I have written pro¬ 
grams to plot a graph, do sim¬ 
ple graphics, do some limited 
data processing and simulate 
assembly processes in a small 
manufacturing company. 

I plan to try several potential 
capabilities that include use of 
the USR function to save and 
load from a cassette tape. I 
would like to share my ideas 
with anyone interested, and I 
believe Kilobaud vjou\6 be hap¬ 
py to publish programs for the 
development of a Tiny BASIC 
software library. ■ 


:L1ST 

10 REM TINY BASIC FOR KIM-1 

11 REM 6502 V.IK BY T. PITTMAN. 

12 REM 

13 REM PROGRAMED BY: 

14 REM C. R. (CHUCK) CARPENTER W5USJ 

15 REM 2228 MONTCLAIR PL. 

16 REM CARROLLTON, TX. 75006 

17 REM 

18 REM FLIPS A COIN ‘N’ TIMES 50 AS SELECTED 

19 REM IN LINE 100, THEN PRINTS THE NUMBER OF 

20 REM HEADS IN EACH 50 FLIPS. 

21 PR 

22 PR 

100 INPUT N 

110 LET 1 = 1 

120 LETC = 0 

130 LET X = 1 

140 LET F = (RND(2)+1) 

150 IF F-1 GOTO 180 
160 PRINT “T'; 

170 GOTO 200 
180 LET C = C+ 1 
190 PRINT “H”; 

200 LET X = X + 1 

210 IF X< = 50 GOTO 140 

220 PRINT 

230 PRINT “HEADS ”:C;“ OUT OF 50 FLIPS” 

240 LET 1 = 1+1 

250 IF I< = N GOTO 120 

260 PRINT 

270 PRINT “DONE” 

280 END 

:RUN 
? 5 

HTTHTTTHHTHHTTTTHHHHHHTHHHTHTHHTTTHHTTHHTTTHHTHTTH 
HEADS 26 OUT OF 50 FLIPS 

HHTHHHTHHHHHTTHTTHHTTHHTHHTTTTHHTHHHTHTHTHTTTTTHHH 
HEADS 28 OUT OF 50 FLIPS 

TTHHTTTHHHHTTTHHTHHHHHTHTTHTHHTHHTHHHTHHTHTTTTTHHH 
HEADS 28 OUT OF 50 FLIPS 

THTHHHHTTTTHTTTTTHTTTTHHHTHTHTHHHHHHTTTTHTHHHTHTHH 
HEADS 25 OUT OF 50 FLIPS 

TTHTTHHTTTTTTTTHTTHTHTTTTHTTTHTTHHHTTHTHHTHTHTHTHT 
HEADS 18 OUT OF 50 FLIPS 

DONE 

Listing 2. 
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Tiny BASIC: 
Still Going Strong! 


Marc /. Leavey, M.D. 

4006 Win/ee Road 
RandaUstown MD 21133 

A fter assembling a home 
computer system, one 
of the first things hobbyists 
want to do is demonstrate to 
their friends and neighbors 
what their new machines can 
do. Unfortunately, those 
things we love to do, like 


machine-language subroutines 
or vectored interrupts, don't 
come across well to "out- 
worlders/' Furthermore, 
most of the games or educa¬ 
tional programs available re¬ 
quire BASIC with string capa¬ 
bility. This implies eight to 
ten kilobytes of read-write 
memory, usually more than 
beginning systems have. 

Fortunately, a language, 


Tiny BASIC, exists that fits 
comfortably in the 4K gener¬ 
ally available in a minimal 
system. Versions are available 
for most popular CPU's from 
Itty Bitty Computers of San 
Jose CA. Although Tiny 
BASIC does not have strings, 
FOR-NEXT loops or several 
other features of "standard" 
BASIC, it is still a useful 
language. 


As an aid to those needing 
software to implement on a 
"Tiny" system, I present 
three game programs. Exten¬ 
sive personal research (I cor¬ 
nered my wife) demonstrated 
the appeal of these games to 
non-computer-oriented (i.e., 
normal) people. Each will run 
in a Tiny BASIC-equipped 
computer with 4K of mem¬ 
ory. Although I used the 
SWTP M-68, programs should 
be interchangeable with any 
Tiny BASIC. 

Remember, these pro¬ 
grams are written in Tiny 
BASIC. Although with minor 
modifications, as in the RND 
function, they will run in 
standard BASIC, they will 
not be efficient. String han¬ 
dling and FOR-NEXT loops 
could simplify and speed up 
these programs, but then they 
wouldn't be Tiny BASIC. 

Enough introduction. On 
to the programs. 

Battle of Numbers 

Battle of Numbers, fre- 


10 REM BATNUM [TINY BASIC! 

20 REM VER 1.2—13 AUG 77 
30 REM MARC I. LEAVEY, M.D. 

40 REM *HOME UP, ERASE, PRINT HEAD* 

50 PR “BATTLE OF NUMBERS” 

60 PR 

70 PR “HOW MANY OBJECTS IN” 

80 PR “THE PILE”; 

90 INPUT P 

100 IF P <=0 GOTO 70 

110 PR “WHAT IS THE MINIMUM YOU” 

120 PR “CAN TAKE”; 

130 INPUT A 

140 IF A>0 GOTO 180 

150 PR “YOU HAVE TO TAKE AT” 

160 PR ‘T>EAST 1 EACH TIME!” 

170 GOTO 110 

180 PR “WHAT IS THE MAXIMUM” 

190 PR “YOU CAN TAKE”; 

200 INPUT B 

210 IF B>=A GOTO 250 

220 PR “THE MINIMUM CAN’T BE” 

230 PR “LARGER THAN THE MAXIMUM! “ 
240 GOTO 110 
250 W=1 
260 L=0 

270 PR “DO YOU WIN OR LOSE BY TAKING” 
280 PR “THE LAST OBJECT (W OR L)”; 

290 INPUT Z 

300 IF Z=1 GOTO 320 

310 I^A 

320 T=A+B 

330 Y=1 

340 N=0 

350 PR “DO YOU WANT TO GO FIRST”; 

360 INPUT Z 
370 IF Z=1 GOTO 600 
380 IF P > B GOTO 410 
390 IF P < =A GOTO 540 
400 IF L=0 GOTO 540 
410 R=P-T*(P/T) 


420 IF R > = A GOTO 4 50 
430 IF R=0 GOTO 450 
440 R=A 

450 IF R=L GOTO 500 
460 C=R-L 

470 IF C > 0 GOTO 510 
480 C=C+B 
490 GOTO 510 
500 C=A-rRND(B-A+l) 

510 PR “I TAKE ”;C 
520 P=P-C 
530 GOTO 600 
540 PR 

550 IF L=0 GOTO 580 

560 PR “I TAKE“ ;P;“AND LOSE! [LUCKY!] 
570 GO TO 770 

580 PR “I TAKE”;P;“AND WIN!!” 

590 GO TO 770 
600 PR 

610 PR “THERE ARE” ;P;“OBJECTS.” 

620 PR “HOW MANY DO YOU TAKE”; 

630 INPUT H 
640 IF H < A GOTO 660 
650 IF H <=B GOTO 700 
660 IF H <>P GOTO 680 
670 IF P < A GOTO 720 

680 PR “YOU MAY TAKE FROM”;A ;“TO”:B 
690 GO TO 620 
700 P=P-H 

710 IF P >0 GOTO 380 

720 IF L-0 GOTO 750 

730 PR “>> YOU LOSE! <<” 

740 GOTO 770 

750 PR YOU WIN! **” 

760 GOTO 770 
770 PR 

780 PR “ANOTHER MATCH”: 

790 INPUT Z 

800 IF Z=1 GOTO 10 

999 END 


BATNUM program fisting. 


Reprinted with permission of Kilobaud Mc>gazine. 


quently abbreviated BAT- 
NUM, is one of the oldest 
number games. In it, a pile of 
objects is established and 
items are removed until the 
game ends. 

In the computer version, 
the size of the starting pile, 
minimum and maximum 
number per turn and win or 
lose on the last token are all 
determined by the player. 
The computer will go first or 
give you the option. It is a 
challenging game, and, with 
the proper strategy, you can 
win it. 

As with all listings in this 
article, BATNUM is fairly 
self-explanatory, but a few 
points bear mentioning. Tiny 
BASIC allows PR for PRINT; 
all other commands are 
spelled out. The statement 
PR "" contains control char¬ 
acters used for homing the 
cursor and clearing the screen 
or line. Although Tiny has no 
string inputs, single-letter 
variables may be input at 
INPUT statements. Thus the 


sequency 

100 Y=1 
200 N=0 

300 PR “ANOTHER GAME’^ 
400 INPUT Z 

could be answered by Y or N, 
and the variable Z would 
equal 1 for yes or 0 for no. 
Kind of a pseudo-string. 

Bagels 

The second listing shows 
the Bagels program, which 
also has been around in vari¬ 
ous forms for sometime. The 
theory of this game is that 
the computer selects a ran¬ 
dom number with three dif¬ 
ferent digits. It then requests 
a guess from you. After first 
checking for other than three 
digits or double digits, the 
computer responds three 
ways (shown in Example 1). 

Thus, if the computer's 
number was 439 and you 
guessed 497, it would re¬ 
spond: PICO FERMI, show¬ 
ing two correct digits — one 
in the right place and one in 
the wrong. PICOs come out 


HOW MANY OBJECTS IN 
THE PILE? 21 

WHAT IS THE MINIMUM YOU 

CAN TAKE? 3 

WHAT IS THE MAXIMUM 

YOU CAN TAKE? 1 

THE MINIMUM CAN’T BE 

LARGER THAN THE MAXIMUM! 

WHAT IS THE MINIMUM YOU 

CAN TAKE? 1 

WHAT IS THE MAXIMUM 

YOU CAN TAKE? 3 

DO YOU WIN OR LOSE BY TAKING 

THE LAST OBJECT (W OR L)? L 

DO YOU WANT TO GO FIRST? N 

I TAKE 2 

THERE ARE 19 OBJECTS, 

HOW MANY DO YOU TAKE? 3 
I TAKE 2 

THERE ARE 14 OBJECTS. 

HOW MANY DO YOU TAKE? 2 
I TAKE 2 

THERE ARE 10 OBJECTS. 

HOW MANY DO YOUTAKE? 2 
I TAKE 2 

THERE ARE 6 OBJECTS. 

HOW MANY DO YOUTAKE? 2 
I TAKE 2 

THERE ARE 2 OBJECTS. 

HOW MANY DO YOU TAKE? 1 

I TAKE 1 AND LOSE! [LUCKYIl 

ANOTHER MATCH? N 


BA TNUM run. 


I HAVE A NUMBER 
GUESS? Ill 

NO DOUBLE NUMBERS! 

GUESS? 234 
BAGELS! 

GUESS? 123 
BAGELS! 

GUESS? 5678 

THREE DIGITS, PLEASE! 

GUESS? 567 
PICO 

GUESS? 890 
PICO FERMI 
GUESS? 590 
FERMI 
GUESS? 690 
FERMI FERMI 

YOU MUST BE NEW AT THIS GAME! 
THE FIRST NUMBER IS 6 
GUESS? 691 
FERMI FERMI 
GUESS? 698 

CORRECT! IN 10 GUESSES! 

TRY ANOTHER? Y 
I HAVE A NUMBER 
GUESS? 123 
BAGELS! 

GUESS? 456 
PICO PICO 
GUESS? 789 
PICO 

GUESS? 457 
PICO PICO 
GUESS? 458 
PICO PICO PICO 
GUESS? 845 

CORRECT! IN 6 GUESSES! 

TRY ANOTHER? N 

Bagels run. 
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BAGELS = No digit correct 

PICO = Correct digit in wrong place 

FERMI = Correct digit in correct place 

Example 1. 


Bagefs program listing. 


10 REM BAGELS < TINY BASIC > 

20 REM VER 2.0 - 31 AUG 77 
30 REM MARC 1. LEAVEY, M.D. 

50 Y=1 
60 N=0 
70 PR 

100 X=100-)-RND(900> 

120 W=X 
130 X=W/100 
140 Y=(W-X*100)/10 
150 Z=(W-X*100-Y*10) 

200 IF X = Y GOTO 100 
210 IFY=ZGOTO 100 
220 IFX=ZGOTO 100 
290 PR“I HAVE A NUMBER” 

300 G=0 
310 G=G-»-l 

312 IF G=9 PR “YOU MUST BE NEW AT THIS GAME!” 

313 IF G=9 PR “THE FIRST NUMBER IS ”;X 

314 IF G=14 PR “I CAN’T BELIEVE IT!” 

315 IF G=14 PR “THE FIRST TWO NUMBERS ARE”;X;Y 
320 PR “GUESS”; 

330 INPUT D 

340 IF D=W GOTO 900 

344 IF G=18 PR “I GIVE U P!” 

346 IF G=18 PR “THE NUMBER WAS ”;W 

348 IF G=18 GOTO 920 

350 IF D < 100 GOTO 950 

360 IF D > 999 GOTO 950 

370 A=D/100 

380 B=(D-100*A)/10 
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390 C=(D-100*A-10*B) 

400 IF A=B GOTO 850 
410 IF A=C GOTO 850 
420 IF B=C GOTO 850 
430 F=0 
440 P=0 

450 IF A=X THEN F=F+1 

460 IF A=Y THEN P=P+1 

470 IF A=Z THEN P=P+1 

480 IF B=X THEN P=P+1 

490 IF B=Y THEN F=F+1 

500 IF B=Z THEN P=P+1 

510 IF C=X THEN P=P+1 

520 IF C=Y THEN P=P+1 

530 IF C-Z THEN F=F+1 

540 IF P-i-F=0 PR ‘*B A G E L S !”; 

550 IF P=0 GOTO 600 

560 P=P-1 

570 PR “PICO 

580 GOTO 550 

600 IF F=0 GOTO 640 

610 F=F-1 

620 PR “FERMI 

630 GOTO 600 

640 PR 

650 GOTO 310 

850 PR “NO DOUBLE NUMBERS!” 

860 GOTO 310 
900 PR 

910 PR “CORRECT! IN”;G;“GUESSES!” 
920 PR “TRY ANOTHER”; 

930 INPUT Z 

940 IF Z=Y GOTO 10 

945 GOTO 999 

950 PR “THREE DIGITS, PLEASE!” 

960 GOTO 310 
999 END 


before FERMIs, so their or¬ 
der is of no help in determin¬ 
ing the correct sequence. 

This program demon¬ 
strates a few useful tech¬ 
niques. The sequence from 
lines 100 to 220 breaks the 
three-digit number W down 
to three integers: X, Y and Z. 
They are then checked for 
duplicate digits; if one is 
found, another number is se¬ 
lected. Similar statements at 
lines 370 to 390 break the 
guess D down to integers A, B 
and C. Comparisons between 
A, B and C, and X, Y and Z 
increment the PICO and 
FERMI flags (P and F, respec¬ 
tively). These flags are used In 
a pseudo FOR-NEXT loop to 
print the PICO and FERMI. 
If neither is set (P+F=0), 
BAGELS gets printed. A 
guess counter (G) is also tal¬ 
lied in to offer the player 
some form of feedback. 


Lunar Lander 

Another popular game is 
the simulated landing of a 
spacecraft on the moon. Ver¬ 
sions have been published in 
all major books and maga¬ 
zines, including Kilobaud. 
The object is quite simple: 
Land your lunar excursion 
module (LEM) without crash¬ 
ing. In this program, con¬ 
stants for fuel, velocity, 
height and gravity are ran¬ 
domized at each play. This 
adds a degree of difficulty 
because the same strategy 
does not always work. 

The loop at lines 92 to 96 
counts to 50, giving the 
player a chance to read the 
introduction. Subroutine 600 
produces a line feed and line 
erase for each 40 feet or so 
below 500 feet. This makes 
the LEM, which is drawn by 
lines 700 to 720, descend the 
screen as the game progresses. 


10 REM LUNAR LANDER [TINY BASICl 
20 REM VER 3.0 - 30 AUG 77 
30 REM MARC I. LEAVEY, M.D. 

40 PR “”,“LUNAR LANDER” 

50 PR 
55 PR 

60 PR “TRY TO LAND THE LEM ON THE” 

65 PR 

70 PR “SURFACE OF THE MOON BY ENTERING” 
75 PR 

80 PR “FUEL BURN RATES WHEN REQUESTED.” 
85 PR 

90 PR “G O O D LUCK !” 

92 1=^50 
94 I-M 

96 IE 1 >0 GOTO 94 
100 E=100 + R ND<75) 

110 V=RNDC50)-100 
120 D = 400+RND(200) 

130 G = 1 + RND(8) 

200 GOSUB 600 

210 GOSUB 700 

220 IF E > 0 GOTO 240 

230 B-0 

235 GOTO 250 

240 GOSUB 7.50 

250 IF B > F FHEN B-E 

255F-F-B 

260 C=B-G 

270 D-D+V+C/2 

280 V=V+C 

400 IF D > 0 GOTO 200 
410 IF D <-l GOTO 500 
4 20 GOTO 530 
500 GOSUB 660 
510 GOTO 800 
530 GOSUB 900 
540 GOTO 800 
600 PR“”; 

610 S-12-D/40 

615 TF S <=0 GOTO 6 50 

620 PR 

6 30 S=S-1 

640 IF S >0 GOTO 620 


650 RETURN 
660 PR 

665 PR “CRASH”,“CRASH”,“CRASH” 

670 PR “♦**+*”/‘=*=*’i=**”,“** + =*'*’» 

675 PR 

680 PR “IMPACT VELOCITY:”;V 
685 PR “LEM BURIED”:-D;“FEET” 

690 PR 

695 GOTO 1010 
700 PR “0”,“FUEL:”;F 
710 PR“[#1'’.“SPEED; ”;V 
720 PR“ - ”,“HEIGHT: ”;D; 

730 RETURN 
750 PR “ BURN; 

760 INPUT B 
770 RETURN 
800 PR 

810 PR “ANOTHER GAME”; 

820 Y-1 

830 INPUT A 

840 IF A-Y GOTO 100 

850 END 

9 00 PR 

910 PR 

920 PR “LEM ON SURFACE OF THE MOON” 

930 IF V <-5 GOTO 1000 
935 PR 

940 PR “C O N G R A T U L A T I O N S !” 

945 PR 

950 PR “PERFECT LANDING!” 

955 PR 

960 PR“TOUCHDOWN VELOCITY: ”;V 
970 PR“FUEL REMAINING; ”;F 
980 RETURN 

1000 PR “EXCESSIVE SPEED ON IMPACT!” 

1005 PR 

1010 IF F=0 GOTO 1050 

1020 PR F:“ UNITS OF FUEL REMAINING” 

1030 PR “PRODUCED EXPLOSION COVERING” 

1040 PR 100*RND(F + 3);“SQ MILES OF LUNAR SURFACE” 
1050 PR 

1060 PR “L E M DESTROYED!” 

1070 + YOU BLEW IT! **=k**+” 

1080 RETURN 


Lunar Lander program listing. 



In the sample run, this rou¬ 
tine has been bypassed since 
it makes little sense on hard 
copy, it does add some flavor 
to the CRT version, though. 

I hope the reader will be 
able to introduce his or her 
acquaintances to the world of 
personal computers by imple¬ 
menting these simple pro¬ 
grams. Comments or ques¬ 
tions are welcome; readers 
interested Tiny BASIC 
should write (I have no con¬ 
nection with IBC): I tty Bitty 
Computers, P.O. BOX 23189, 
San Jose CA 95153. (A self- 
addressed stamped envelope 
should accompany requests 
for replies.) ■ 


TRY TO LAND THE LEM ON THE 

0 

FUEL: 

103 



SURFACE OF THE MOON BY ENTERING 

[#) 

SPEED: 

-80 



FUEL BURN RATES WHEN REQUESTED. 
GOOD LUCK! 

/-\ 

HEIGHT: 

113 

BURN: 

? 6 


0 

FUEL: 

97 




l#l 

SPEED: 

-75 




/-\ 

HEIGHT: 

35 

BURN: 

? 12 


0 

FUEL: 

111 





[#] 

SPEED: 

-84 




CRASH CRASH CRASH 

/A 

HEIGHT: 

431 

BURN; 

7 

5 

+ ♦ + * + + 

0 

FUEL: 

106 




IMPACT VELOCITY: -64 

[#1 

SPEED: 

-80 




LEM BURIED 35 FEET 

/-\ 

HEIGHT: 

349 

BURN: 

7 

3 

85 UNITS OF FUEL REMAINING 

0 

FUEL: 

103 




PRODUCED EXPLOSION COVERING 

[#] 

SPEED: 

-78 




300 SQ MILES OF LUNAR SURFACE 

A 

HEIGHT: 

270 

BURN: 

7 

0 

LEM DESTROYED! 

0 

FUEL: 

103 




****** YOU BLEW IT! ****** 

[#1 

SPEED: 

-79 





/-\ 

HEIGHT: 

192 

BURN: 

7 

0 

ANOTHER GAME? N 


Lunar Lander run. 



James L. Barnard 
4781 Melbourne Rd. 

Baltimore MD 21229 

Match Pennies: 

A Game That Learns 


H ere is a program that 
demonstrates a com¬ 
puter’s ability to show adaptive 
(artificial) intelligence and pat¬ 
tern recognition. The program 
is in the form of a simple penny¬ 
matching game and is planned 
as follows. 

The computer guesses 
whether you are going to pick 
heads or tails. If it guesses cor¬ 
rectly, it will subtract a point 
from your score. If it is wrong, 
your score is increased by a 
point. 

To perform this task, the 
computer must decide whether 
to pick heads or tails. In the pro- 
gram, i have established 
criteria for making this deci¬ 
sion. The computer has to keep 
a record of the human’s 
previous plays. It will then look 
up in this record previous plays 
that match the situation with 
which it is now presented. Us¬ 
ing earlier results, it now has a 
basis to make a decision on 
whether to play heads or tails. 

Here’s an outline of this 
basic concept: 

1. Situation memory (16 cells) 


2. Situation comparer 

3. Input data (heads or tails) 

4. Decision maker 

5. Decision output (heads or 
tails) 

6. Win/lose detector 

7. Scorekeeper (from human’s 
view) 

The implementation of the 
outline has a different ap¬ 
pearance. The program is writ¬ 
ten in Pittman Tiny BASIC. To 
set up the situation memory, I 
selected 16 variables. These 
act as 16 memory cells, each to 
contain a 0 = heads or a 1 = 
tails. The 16 cells are ad¬ 
dressed by a memory address 
register that represents the last 
four human plays (head, tail, 
head, tail, etc.). This address 
(situation) register is contained 
in four variables. As a new play 
is generated, the play that oc¬ 
curred four plays ago is shifted 
out and each play is shifted one 
position, with the present play 
being shifted in as the least 
significant part of the address 
(situation) register. Thus, the 
address (situation) register is 
at ail times a representation of 


the last four human plays. 

The computer uses this ad¬ 
dress register to compute a cell 
number (address). This is done 
by giving each of the four plays 
contained in the address 
register a value (power of 2), 
The oldest play, if it was a tail 
(= 1), is represented by 8; next, 
if it was a tail, by 4, and so on 
until the latest play equals 1. 
These are then added to com¬ 
pile a number (0-15). This cor¬ 
responds to a cell number. The 
program stores the human’s 
latest play (input data - heads 
= 0; tails = 1) in the cell whose 



cell number is computed from 
the address register. This tells 
the computer that the human 
played H, T, H, T, for example, 
and then played heads again. 

The next part of the program 
shifts the latest play into the 
address register. It then com¬ 
pares the latest play to the vari¬ 
able V (computer’s guess from 
the end of the last play) to de¬ 
termine if the guess is a match 
or not. Depending on the re¬ 
sults of the comparison, the hu¬ 
man’s score is incremented or 
decremented, and the human is 
shown the results. Then the 
computer (using the latest shift 
address register value) looks 
up the cell number and gets the 
human’s play the last time this 
situation occurred. This is then 
used for computer’s next guess 
(variable V). 

Fig. 1 is a flowchart of theen- 
tire program and shows the 
foirr main parts of the pro¬ 
gram’s main loop: 

1. Store (present data with last 
situation). 

2. Shift (to get latest situation). 

3. Check Win/Lose. 

4. Fetch guess (based on latest 
situation). 

At first, the program will tend 
to make the computer appear 
dumb. This is because the 
memory cells and address 
register are initialized with data 
that is not derived from data 



10 LET H = 0 
15 LETT = 1 

20 PRINT “TYPE HEADS OR TAILS (H OR T)“ 
25 INPUT X 

Example 1. 


Fig. 1. Flowchart. 

Reprinted with permission of Kilobaud Magazine. 




the human is presently playing. 
As soon as the memory con¬ 
tains data acquired from play¬ 
ing, the computer adapts and 
seems to get progressively 
more intelligent. 

The chart in Table 1 shows 
how the program gradually 


adapts to different patterns of 
play. The program uses a little- 
known aspect of Pittman Tiny 
BASIC: that a variable may be 
set to a given value and an in¬ 
put requested. The letter of the 
preset variable may then be 
typed, and the input will be 


equal to the preset value, as in 
Example 1. If a player types H, 
the value of X will be 0; if he 
types T, the value of X will be 1. 

So, try your luck playing the 
computer at matching pennies. 
Remember, it may sucker you 
at first. You may think that the 



computer cheats, so I have in¬ 
cluded a PEEK command in the 
program. If you type 2 instead 
of H or T, the computer will 
show you its next guess. It is 
not fair to “peek” every time as 
you may cause the program to 
have a nervous breakdown.* 


Game 

Computer’s 

Human’s 

Win/Lose 

Wrote 

Read 

Game 

Read from Comment 

No. 

Play 

Play 


Cell No. 

Cell No. 

Total 


Game No. 

0 

T 


W 



0 

* 


Reset 

1 

T 

H 

W 

H-0 

H-1 

1 

8" 



2 

H 

H 

L 

H-1 

H-3 

0 




3 

H 

H 

L 

■H-3 

H-7 

-1 

* , 

- 

H, H Pattern 

4 

H 

H 

L 

H-7 

H-15 

-2 

* 



5 

H 

H 

L 

H-15 

H-15 

-3 

5_ 



6 

H 

T 

W 

T-15 

H-14 

-2 

* 



7 

H 

T 

W 

T-14 

H-12 

-1 

* 



8 

H 

H 

L 

H-12 

H-9 

-2 

* 



9 

H 

H 

L 

H-9 

H-3 

-3 

3 



10 

H 

T 

W 

T-3 

H-6 

-2 

* 

- 

H, H, T, T Pattern 

11 

H 

T 

W 

T-6 

H-12 

-1 

8 



12 

H 

H 

L 

H-12 

H-9 

-2 

9 



13 

H 

H 

L 

H-9 

T-3 

-3 

10 



14 

T 

T 

L 

T-3 

T-6 

-4 

11 



15 

T 

T 

L 

T-6 

H-12 

-5 

12 



16 

H 

H 

L 

H-12 

H-9 

-6 

13_ 



17 

H 

T 

W 

T-9 

H-2 

-5 

* 



18 

H 

H 

L 

H-2 

H-5 

-6 

* 

- 

H, T Pattern 

19 

H 

T 

W 

T-5 

H-10 

-5 

* 



20 

H 

H 

L 

H-10 

T-5 

-6 

19 



21 

T 

T 

L 

T-5 

H-10 

-7 

2^ 



22 

H 

T 

W 

T-10 

H-4 

-6 

* 



23 

H 

T 

w 

T-4 

H-8 

-5 

* 


T, T Pattern 

24 

H 

T 

w 

T-8 

H-0 

-4 

1 


25 

H 

T 

w 

T-0 

T-0 

-3 

25 



26 

T 

T 

L 

T-0 

T-0 

-4 

26_ 



27 

T 

H 

w 

H-0 

H-1 

-3 

2" 



28 

H 

H 

L 

H-1 

T-3 

-4 

14 



29 

T 

H 

W 

H-3 

H-7 

-3 

4 


H, H Pattern 

30 

H 

H 

L 

H-7 

T-15 

-4 

6 


31 

T 

H 

W 

H-15 

H-15 

-3 

3r 



32 

H 

H 

L 

H-15 

H-15 

-4 

32^ 



33 

H 

H 

L 

H-15 

H-15 

-5 

33 “ 



34 

H 

T 

W 

T-15 

T-14 

-4 

7 



35 

T 

H 

W 

H-14 

H-13 

-3 

* 



36 

H 

H 

L 

H-13 

H-11 

-4 

■* 



37 

H 

H 

L 

H-11 

H-7 

-5 

30 

- 

H, H, H, T Pattern 

38 

H 

T 

W 

T-7 

H-14 

-4 

35 



39 

H 

H 

L 

H-14 

H-13 

-5 

36 



40 

H 

H 

L 

H-13 

H-11 

-6 

37 



41 

H 

H 

L 

H-11 

T-7 

-7 

38" 



42 

T 

T 

L 

T-7 

H-14 

-8 

39 



43 

H 

T 

W 

T-14 

H-12 

-7 

16 



44 

H 

T 

W 

T-12 

T-8 

-6 

24 



45 

T 

H 

w 

H-8 

H-1 

-5 

28 



46 

H 

T 

w 

T-1 

H-2 

-4 

18 



47 

H 

T 

w 

T-2 

T-4 

-3 

23 

- 

H, T, T, T Pattern 

48 

T 

T 

L 

T-4 

H-8 

-4 

45 



49 

H 

H 

L 

H-8 

T-1 

-5 

46 



50 

T 

T 

L 

T-1 

T-2 

-6 

47 



51 

T 

T 

L 

T-2 

T-4 

-7 

48 



52 

T 

T 

L 

T-4 

H-8 

-8 

49 



53 

H 

H 

L 

H-8 

T-1 

-9 

50 




Table 1. Penny-match game. 


* Reset State 
(initialization) 




50 PR“MATCH PENNIES WETH THE COMPUTER!” 

60 PR“IF THE COMPUTER GUESSES THE SAME AS YOU PICK ” 
70 PR^^THEN THE COMPUTER WINS AND THE HUMAN LOSES!” 

86 PR”TYPE YOUR FAVORITE NUMBER(O-IOO)” 

87 INPUT X 
100 GOSUB 600 

105 PR“HEADS OR TA1LS(H OR T)” 

110 INPUT X 

120 IF X = 2 GOSUB 210 

130 IF X>1 GOTO 105 

140 GOSUB 300 

150 GOSUB 400 

160 GOSUB 215 

170 IF X-V PR‘‘HUMAN LOSES!” 

175 IF X = V W = W- 1 
180 IFXOV W = W+ 1 
185 IF XOV PREHUMAN WINS!” 

190 PR”YOUR SCORE IS ”;W 
195 GOSUB 500 
200 GOTO 105 

210 PR‘‘YOU PEEKED!! - NOT FAIR!” 

215 PR‘‘THE COMPUTER GUESSED 
220 IF V = 0 PR“HEADS” 

225 IF V-1 PR”TAiLS” 

230 RETURN 

300 Y = (8*A) + i4*B) + (2*C) + D 

305 IF Y = 0 F = X 

310 IF Y = 1 G = X 

315 IF Y = 2 E-X 

320 IF Y = 3 I=X 

325 IF Y=4 J = X 

330 IF Y = 5 K = X 

335 IF Y = 6 L = X 

340 IF Y = 7 M = X 

345 IF Y = 8 N = X 

350 IF Y = 9 O = X 

355 IF Y = 10 P = X 

360 IF Y = 11 Q = X 

365 IF Y-12 R = X 

370 IF Y=13 S = X 

375 IF Y = 14 Z = X 

380 IF Y=15 U = X 

390 RETURN 

400 D = C 

405 C = B 

410 B = A 


415 

A = X 


420 

RETURN 


500 

Y =(8*A) + 

(4*B) + (2*C) + D 

505 

IF Y = 0 V = 

F 

510 

IF Y = 1 V = 

G 

515 

IF Y = 2 V = 

E 

520 

IF Y = 3 V = 

I 

525 

IF Y-4 V = 

J 

530 

IF Y = 5 V = 

K 

535 

IF Y=6 V = 

L 

540 

IF Y = 7 V = 

M 

545 

IF Y-8 V = 

N 

550 

IF Y-9V- 

O 

555 

IF Y=10 V 

= P 

560 

IF Y-11 V 

-Q 

565 

IF Y=12 V 

= R 

570 

IF Y-13 V 

= S 

575 

IF Y= 14 V 

= z 

580 

IF Y- 15 V 

= u 

590 

RETURN 


600 

A = 0 


605 

B = 0 


610 

C-0 


615 

D = 0 


617 

E=0 


620 

F = 0 


625 

G = 0 


630 

H-0 


635 

1=0 


640 

J=0 


645 

K = 0 


650 

L = 0 


655 

M=0 


660 

N=0 


665 

0 = 0 


670 

P = 0 


675 

Q = 0 


680 

R = 0 


685 

S=0 


687 

T = I 


690 

U=0 


692 

V = 0 


695 

W=0 


696 

z=o 


697 

RETURN 



Program listing. 




Gregory L. Oliver 
P.O. Box 184 
Euless Tx 76039 


Why Not Trig Functions 
For Your 4K BASIC? 


93 


A while back, a neighbor’s 
kid was looking through 
y copy of 101 Basic Computer 
Games and asked if he could 
play Gunner. “No,” I replied, 
“my computer can’t do this line 


with SIN(X) in it.” So he settled 
for Lunar Lander. While he was 
occupied, I wondered if it was 
possible to simulate this and 
other math functions, included 
in 8K BASIC but missing in my 


4K version. They weren’t called 
often, but used up lots of pro¬ 
gramming space whether need¬ 
ed or not. So, why not just have 
subroutines to add only when 
necessary? 

I recalled from calculus 
classes that any function can 
be approximated by a series 
equation, a method using suc¬ 
cessive iterations—ideal for a 
computer. After a lot of 
research and some trial and er¬ 
ror, I had subroutines to 
calculate SIN(X), COS(X), 
TAN(X), EXP(X) and LOG(X). 
Since they’re all based on the 
same principle, let’s use SIN(X) 
to demonstrate. 

In 4K SASIC, you can approx¬ 
imate the sine of X by following 
the function in Example 
1—provided that X is in ra¬ 
dians, and Xi^/n! is less than 
some predetermined value, 
such as IE-7. 

I chose this value to compare 
with the 8K version. Actually, 
you could speed things up by 


stopping at 1E-4. This is more 
than enough accuracy for most 
games. For those of you un¬ 
familiar with the term n! (called 
factorial), it is defined as the 
multiplication of all integers 
(whole numbers) from one to n. 
3! equals 6,5! equals 120 and 7! 
equals 5040. 

You can see that X^ln\ very 
quickly becomes smaller and 
smaller. This Is called converg¬ 
ing, because the more terms 
you add, the closer you get to 
the actual answer. 

Here’s the procedure for find- 
ingSIN(X): 

1. Convert X in degrees to R in 
radians. 

2. Set X equal to R. 

3. Set S equal to R. 

4. Set counter N equal to 1. 

5. Add 2 to N. 

6. Convert term R to ( - R)"(S * 
S)/[-N MN -D). 

7. Add R to X. 

8. If the absolute value of R is 


100 REM artillery game by G.L. Oliver 

110 REM demonstrates 4K SIN(X) subroutine 

200 Let T = 50000 - INT (RND (0) *45000) 

205 REM T is distance to target 

210 Let A = 0 

215 REM A is shot count 

220 Input X 

230 If X<90 then go to 260 
240 Print “Bad Angle” 

250 Go to 220 

260 If X< 1 then go to 240 

270 Let X = X * 2 

280 Gosub 1000 

290 Let A = A + 1 

300 Let H = T - INT (50000*X) 

310 If H<100 then go to 350 
320 Print “Over By”; H; “Yards” 

330 Go to 370 

350 If H<-100 then go to 400 
360 Print “Under By”; H; “Yards” 

370 If A<5 then go to 220 
380 Print “You Got Hit!” 

390 Go to 500 

400 Print “Got Him In”; A; “Shots” 

410 Print H; “Yards” 

500 Print “Try Again? (I = Yes; 0 = No)”; 
510 Input A 

520 If A = 1 then go to 200 
530 Stop 

Program 6. 


SIN (X) = X - 2^3+ x7 + . .. + xn 
3! 5! 7! n! 

Example 1. 


Reprinted with permission of Kilobaud Magazine. 




1000 Let R = X *.01754293 

1010 Let X = R 

1020 Let S = R 

1030 Let N = I 

1040 Let N - N + 2 

1050 Let R = -R*S*S/IN*(N -1)1 

1060 Let S = X + R 

1070 If ABS (R) <lE-7 then return 

1080 Go to 1040 

Program A. 


you giving up? Time, of course. 


less than 1 x 10 you are 
done and should return with 
X equal to SIN (X). 

9. Otherwise, go back to step 5. 

Fig. 1 is the flowchart for this 
procedure, and Program A 
shows the completed 
subroutine. As to application, I 
freely changed and simplified 
the Gunner program to 
demonstrate my subroutine 
(see Program 2). 

Now that we have SIN(X), 
how about COS(X)? All you 
need to do is add 90 degrees to 
the angle, and then use the 
same subroutine you use for 
SIN(X). Believe me. So, that 
gives us SIN(X) and COS(X). 



Fig. 1. Flowchart. 


TAN(X) is just SiN(X) divided by 
COS(X). It may lake a bit longer 
to calculate since you have to 


call the same subroutine twice 
and juggle a few numbers; but 
look at the space you save! 
That was the reason for using 
4K to begin with. 

You save a lot of space—as I 
stated earlier—but what are 


It takes about a second for 
angles less than 90 degrees, 
and maybe two seconds when 
you are up to 360 degrees. So 
what! You now have 4K extra of 
programmable memory.® 
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CUSTOMER SERVICE 


REPLACEMENT PARTS 

Please provide complete information when you request re¬ 
placements from either the factory or Heath Electronic Cen¬ 
ters. Be certain to include the HEATH part number exactly as it 
appears in the parts list. 


ORDERING FROM THE FACTORY 

Print all of the information requested on the parts order form 
furnished with this product and mail it to Heath. For telephone 
orders (parts only) dial 616 982-3571. If you are unable to 
locate an order form, write us a letter or card including: 

• Heath part number. 

• Model number. 

• Date of purchase. 

• Location purchased or invoice number. 

• Nature of the defect. 

• Your payment or authorization for COD shipment of parts 
not covered by warranty. 

Mail letters to: Heath Company 
Benton Harbor 
Ml 49022 

Attn: Parts Replacement 

Retain original parts until you receive replacements. 
Parts that should be returned to the factory will be listed 
on your packing slip. 

OBTAINING REPLACEMENTS FROM 
HEATH ELECTRONIC CENTERS 

For your convenience, “over the counter” replacement parts 
are available from the Heath Electronic Centers listed in your 
catalog. Be sure to bring in the original part and purchase 
invoice when you request a warranty replacement from a 
Heath Electronic Center. 


TECHNICAL CONSULTATION 

Need help with your kit? — Self-Service? — Construction? — 
Operation? — Call or write for assistance, you’ll find our Tech¬ 
nical Consultants eager to help with just about any technical 
problem except “customizing” for unique applications. 

The effectiveness of our consultation service depends on the 
information you furnish. Be sure to tell us: 

• The Model number and Series number from the blue and 
white label. 

• The date of purchase. 

• An exact description of the difficulty. 

• Everything you have done in attempting to correct the prob¬ 
lem. 


Also include switch positions, connections to other units, 
operating procedures, voltage readings, and any other infor¬ 
mation you think might be helpful. 

Please do not send parts for testing, unless this is specifi¬ 
cally requested by our Consultants. 

Hints: Telephone traffic is lightest at midweek — please be 
sure your Manual and notes are on hand when you call. 

Heathkit Electronic Center facilities are also available for tele¬ 
phone or “walk-in” personal assistance. 


REPAIR SERVICE 

Service facilities are available, if they are needed, to repair 
your completed kit. (Kits that have been modified, soldered 
with paste flux or acid core solder, cannot be accepted for 
repair.) 

If it is convenient, personally deliver your kit to a Heathkit 
Electronic Center. For warranty parts replacement, sup¬ 
ply a copy of the Invoice or sales slip. 

If you prefer to ship your kit to the factory, attach a letter 
containing the following information directly to the unit: 

• Your name and address. 

• Date of purchase and invoice number. 

• Copies of all correspondence relevant to the service of the 
kit. 

• A brief description of the difficulty. 

• Authorization to return your kit COD for the service and 
shipping charges. (This will reduce the possibility of delay.) 

Check the equipment to see that all screws and parts are 
secured. (Do not include any wooden cabinets or color televi¬ 
sion picture tubes, as these are easily damaged in shipment. 
Do not include the kit Manual.) Place the equipment in a strong 
carton with at least THREE INCHES oUesilient packing mate¬ 
rial (shredded paper, excelsior, etc.) on all sides. Use addi¬ 
tional packing material where there are protrusions (control 
sticks, large knobs, etc.). If the unit weighs over 15 lbs., place 
this carton in another one with 3/4” of packing material bet¬ 
ween the two. 

Seal the carton with reinforced gummed tape, tie it with a 
strong cord, and mark it “Fragile” on at least two sides. Re¬ 
member, the carrier will not accept liability for shipping dam¬ 
age if the unit is insufficiently packed. Ship by prepaid express, 
United Parcel Service, or insured Parcel Post to: 

Heath Company 

Service Department 

Benton Harbor, Michigan 49022 
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